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Welcome 

One of the most exciting features of your Series 200 computer is its graphics capability. It is much 
easier to grasp the trends, relative sizes or quantities represented by data if it is presented in a 
graphical form, as opposed to tabular form. 

This manual will introduce you to the set of graphics routines in the Series 200 Device-independent 
Graphics Library (DGL) graphics package. The goals of the DGL package are: 

1. As its name implies, it is a device-independent package. Thus, programs running on one 
computer or implementation should transport to another computer or implementation of 
DGL with a minimum of conversion effort. 

2. It is reasonably small. DGL is not meant to be an exhaustive library containing routines to do 
all conceivable grapics operations, but it gives you enough capability to develop them 
yourself. 

3. DGL is quite fast. Many of its operations press the capabilities of the Motorola 68000 
processor, the CPU in the Series 200 machines. 

This manual is meant to teach you how to use the routines incorporated into DGL to produce 
highly readable and visually acceptable output. The manual assumes you are familiar with the 
Pascal programming language, and that you have access to a Pascal 3.0 Workstation System 
Manual, a Pascal 3. Procedure Library manual, and the textbook An Introduction to Programming 
and Problem Solving with Pascal, and that you will look up any programming/syntactic topics you 
don't understand. 

Most of the demonstration programs and routines in the next three chapters of this manual are 
stored for your convenience on the DGLPRG : disc which was shipped with this manual. You are 
encouraged to run these programs as you are reading the manual, as they will make under- 
standing the concepts much easier. 



Note 

The demonstration programs and routines on the DGLPRG : disc are 
for the purpose of instruction only. They are not part of the DGL 
package, and as such, they are not covered by any warranty, ex- 
pressed or implied. Hewlett-Packard shall not be liable for incidental 
or consequential damages in connection with, or arising out of, the 
furnishing, performance, or use of these routines. 
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Why Graphics? 



Below is some data. As quickly as you can 
falling. Are there any periodic motions to it? 
hundred points? 

Voltage Variance 



determine if its overall trend is steady, rising or 
If so, how many cycles are represented in the one 

Voltage Variance 



Time (sec) 


Voltage 


1 


0.1610 


2 


0.1625 


3 


0.1625 


4 


0.1628 


5 


0.1636 


6 


0.1631 


7 


0.1627 


8 


0.1608 


9 


0.1610 


10 


0.1606 


11 


0.1607 


12 


0.1617 


13 


0.1614 


14 


0.1626 


15 


0.1634 


16 


0.1640 


17 


0.1656 


18 


0.1660 


19 


0.1644 


20 


0.1651 


21 


0.1635 


22 


0.1641 


23 


0.1628 


24 


0.1619 


25 


0.1630 


26 


0.1624 


27 


0.1627 


28 


0.1644 


29 


0.1644 


30 


0.1657 


31 


0.1660 


32 


0.1670 


33 


0.1672 


34 


0.1666 


35 


0.1658 


36 


0.1662 


37 


0.1646 


38 


0.1633 


39 


0.1634 


40 


0.1636 


41 


0.1645 


42 


0.1652 


43 


0.1656 


44 


0.1677 


45 


0.1689 


46 


0.1680 


47 


0.1696 


48 


0.1680 


49 


0.1674 


50 


0.1677 



Time (sec) 


Voltage 


51 


0.1669 


52 


0.1655 


53 


0.1665 


54 


0.1662 


55 


0.1667 


56 


0.1668 


57 


0.1681 


58 


0.1688 


59 


0.1687 


60 


0.1707 


61 


0.1716 


62 


0.1716 


63 


0.1694 


64 


0.1698 


65 


0.1683 


66 


0.1683 


67 


0.1671 


68 


0.1681 


69 


0.1683 


70 


0.1684 


71 


0.1681 


72 


0.1698 


73 


0.1705 


74 


0.1723 


75 


0.1730 


76 


0.1734 


77 


0.1714 


78 


0.1722 


79 


0.1716 


80 


0.1696 


81 


0.1702 


82 


0.1699 


83 


0.1684 


84 


0.1706 


85 


0.1696 


86 


0.1715 


87 


0.1730 


88 


0.1737 


89 


0.1739 


90 


0.1751 


91 


0.1732 


92 


0.1747 


93 


0.1729 


94 


0.1717 


95 


0.1710 


96 


0.1707 


97 


0.1706 


98 


0.1709 


99 


0.1713 


100 


0.1720 
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A wise old computer programmer once said, "A graphical output is equivalent to IK words of 
text." He was right. Unless both hemispheres of your brain are hyperdeveloped, it probably 
took a minute or two to answer each of the previous questions. Below is a graph of the data in 
the table. Observe that the graphical nature of the output makes what the data is doing much 
clearer. This clarity and understandability at a glance is what computer graphics is all about. 



VOLTHGE VHRIHNCE 




T i me ( seconds ) 



A progressive example of how this plot was created is given through the rest of this chapter. 
Each installment demonstrates more of the graphics routines available. The successive plots, all 
representing the same data, become clearer and clearer as we learn some of the concepts of 
computer graphics and how to implement them with the routines available to us. 
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Using the Graphics Library 

To run the demonstrations programs in this manual, you must use the DGL routines contained in 
the GRAPHICS library file on the LIB: disc. The first step, then, is to make these libraries accessible 
to the demonstration programs at the appropriate times. 

There are two times when the GRAPHICS modules need to be accessible: 

• When the program is compiled, and 

• When the program is loaded. 

The simplest way to make the GRAPHICS library accessible during compilation and loading is to 
use the What command to make GRAPHICS the system library. To do this: 



1. At the Main Command Level, press [ W ) to invoke the What command. 

2. Press ( B ) to indicate you want to change the system library setting, and type the complete 
file specification for the GRAPHICS library file. Be sure to type a period after the file name, to 
prevent the system from appending a suffix to the name. For example, if the GRAPHICS file 
is still on the LIB: disc, you would type: 



LIB:GRAPHICS, ( Return ) 

3. Press ( Q ) to exit from the What command. When you begin compiling and running the 
demonstration programs, make sure the GRAPHICS library file is on-line 1 . 

Note 

If you have plenty of memory in your computer, you can speed com- 
pilation by copying the GRAPHICS file into a memory (RAM:) volume 
of about 400 blocks. Be sure to use the What command to change the 
system library to RAM: GRAPHICS if you do this. You can also speed 
program execution by permanently loading the GRAPHICS file with the 
Permanent command. 



1 "On-line" means that it is accessible at th.it moment. This could mean either that the library is in a memory volume, or the library is on a disc 
and the disc is currently in a drive. 
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INCLUDE files 

In many of the following programs, there is a compiler directive called INCLUDE. This causes 
the compiler to access the specified file, compile the contents as if it were in the original file, and 
when the end of the file is reached, return to the original file and continue compilation. 

One advantage to INCLUDE files is that many programs can use the same file, not merely 
copies of the file. This makes it much easier to make modifications to the routines, because only 
one copy of the routine need be changed. If the routine had been physically copied into each 
program that used it, every occurrence of it would have to be individually changed. 

The INCLUDE directives used in the program files assume there is a volume on-line which 
contains the text files for all the necessary inclusions. Again, if you have enough memory, the 
INCLUDE process could be speeded up tremendously by placing the necessary files in a 
memory volume. 

Here is some information to help you define how large the "enough memory," referred to in the 
previous paragraph, is. Below is a list of files at least some of which you will probably want to 
permanently load (the main advantage to permanently loading is very fast access) and the amount 
of memory they consume. The approximate file sizes are expressed in 256-byte blocks. 



File Name 


Approximate File Size 


EDITOR 


(subsystem) 


240 blocks 


FILER 


(subsystem) 


230 blocks 


COMPILER 


(subsystem) 


835 blocks 


LIBRARIAN 


(subsystem) 


225 blocks 


LIBRARY 


(library) 


65 blocks 


10 


(library) 


245 blocks 


GRAPHICS 


(library) 


810 blocks 



You must also take into account any memory volumes you have defined, and the size of the 
program you are dealing with, etc. 
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The Graphics Programs 



All of the following plots use Cartesian (rectangular) coordinates: "X" specifies the left-right 
distance (with values increasing as you go to the right), and "Y" specifies the down-up distance 
(with values increasing as you go up). 

In the programs in this chapter and the next, each program name is identical to the file name 
which contains it. It is not mandatory that the program name is the same as the file name, but it 
helps to find the file. 

All the examples that follow get the Y-value from a function called DataPoint. This function, 
given an X value, merely returns the appropriate Y value each time it is invoked. You could just 
as well be reading values from a voltmeter, temperature sensor, anemometer, or any other 
device that you can connect to a computer. Since this function does not change from example 
to example, and since it represents any generic data-defining process, the function will not be 
listed at each update of the plotting program. For reference, though, it is listed in the appendix. 

Customizing the Programs for Your System 

The demonstration programs on the DGLPRG: disc will send graphics output to the current console 
of a Series 200 Computer. The "current console" is the CRT where alpha is displayed after the 
system is booted; i.e., the CRT where the Pascal system command lines appear. Graphics display 
device selection is performed by the DISPLAYJNIT procedure. If you would like to use a different 
CRT (or other graphics device) as your display device, you must change the DISPLAYJNIT 
procedure call accordingly. 

The first parameter in the DISPLAYJNIT procedure call is called the device selector. It specifies 
which display device you would like to use for graphics output. The demonstration programs 
declare the device selector as a constant with the name CrtAddr. Graphics display devices are 
selected as follows: 

• A device selector of 3 specifies the current console as the graphics display device (again, this is 
where the command line appears). This is the value used in all of the demonstration programs. 
If the current console has no graphics hardware, the system may search for another display 
that does have graphics hardware and make it the graphics display device. 

• A device selector of 6 specifies any other internal CRT as the graphics display device (if one 
exists). Internal refers to any display whose frame buffer resides in the system's "internal 
space," i.e., any CRT which does not require a select code and/or bus address to access it. 

• A device selector in the range 8 through 31 specifies the select code of the interface to which 
the desired graphics display device is attached. 

• A device selector in the range 100 through 3199 specifies the composite HP-IB select code/bus 
address of the desired HP-IB graphics display device. 
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The second parameter is the DISPLAYJNIT procedure call is called the control value. It is used to 
specify device-dependent characteristics of the graphics display device. The demonstration prog- 
rams declare the control value as a constant called ControlWord. For complete details on this value, 
refer to the DISPLAYJNIT section of Appendix B. However, there are two cases that are worth 
discussing: 

• If you have a Model 237 and are using the bit-mapped display as your current console, you 
may remove the type-ahead buffer echo at the bottom of the screen (and use the entire display 
for graphics) by specifying a device selector (CrtAdd r) of 3 and a control value (ControlWord) 
of 256: 

CrtAddr= 3! 

ControlWord= 256! 

The value of (used in the demonstration programs) retains the type-ahead buffer. 

• If you have an HP 98627A RGB interface connected to a 60 Hz, non-interlaced color 
monitor 1 , you can designate it as the graphics display device by specifying the interface's select 
code as the device selector (c rt Add r), and a control value (ControlWord) of 256 (specifying US 
STD, 512 x 390, 60Hz refresh). See the table in the DISPLAYJNIT section of Appendix B for 
details. 

The control values are not merely "magic numbers." Bits 10, 9 and 8 in the control value allow you 
to specify what kind of CRT you wish to interface to (in the case of external monitors), or to set 
characteristics of the display (in the case of the Model 237 bit-mapped display). The value of 256 is 
not necessary if you are plotting on a U.S. Standard display (see the "External Color Displays" 
section in this chapter); defaults to the same characteristics as does 256. 

The final parameter in the DISPLAYJNIT procedure call is an integer variable that will be assigned 
if the display device was successfully initialized, or a non-zero value if initialization failed. For more 
details, refer to the DISPLAYJNIT section of Appendix B. 

By modifying the device address and/or the control value, images which were drawn on one device 
can be drawn on another device with a minimum of effort. 

There are some limitations, though. If you are doing an operation on one display device, and 
attempt to send the image to another device which does not support that operation, it won't work. 

Drawing Lines 

You are encouraged to compile and run the following programs on your computer as they are 
presented. Turn on your machine and load the Pascal system (if you don't know how to do this, see 
Chapter 2 of the Pascal 3.0 User's Guide). This program, as most of the following programs, use 
the compiler directive INCLUDE. Compile and run the following program; it is on the file "SinLine" 
on your DGLPRG: disc. 



1 Depending on your choice of color monitor, there may be more specification necessary in the control value variable of the DISPLAY_1NIT 
procedure. See the "External Color Displays" section in Chapter 3. 
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To move the pen somewhere, you call the procedure MOVE, and to draw lines, you call the 
procedure LINE. Both of these procedures have two parameters: the X and Y coordinates of 
the point you want to move or draw to. The following program does just that. 



p r o 3 r a m S 

import d 3 

const 
CrtAddr 
Control 

i.i a r 

Er ro rRe 

A ' 

i ; 

$ i n c 1 u d e 
$pa3e$ { 
h e 3 i n 
Graphics. 
d i s p 1 a y _ i 
if ErrorR 
for X : = 
Y:=Da 
if X = 
else 
e n d i { 
e ii d i { E r 
Graphics, 
end, 



i n L i n e ( o u t p u t ) ! 

1 _ 1 i b i 

3! 
0! 



{Set Graphics routines} 

{address of internal CRT) 
{device control! for CRT} 

{variable for initialization outcome} 



turn: i n t e i e r i 

i n t e 3 e r i 

real ! 
'DGLPRG:DataPoint '$ {function! y:=f(x) } 

*##♦#♦*#*######**♦##*•»##*###**♦#####♦#*♦#•»*###♦#*##*#****#♦#*#♦#♦*•##} 

{body of pro 3 ram "SinLine"} 
i n i t i {initialize graphics system} 

n i t ( C r t A d d r i C o n t r o 1 » E r r o r R e t u r n ) i {which output device?} 
e t u r n = then b e 3 i n {output device initialization OK?} 

1 to 100 do be 3 in { 100 points total } 

t a P o i n t ( X ) i {Set a point from the function} 

1 then move ( )</ 100 »Y ) {move to the first point...} 

line (X/100 »Y) ! {...and draw to all the rest} 

for X: = l to 100} 
r o r R e t u r n = ? } 

term! {terminate the graphics pacKase) 

{ p r o 3 r a m "SinLine"} 



Probably the first reaction you had when looking at the previous plot was that the plot doesn't 
show you anything. But as you can see, this simple program is all you need to draw a 
rudimentary plot. 
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You must always execute the procedure GRAPHICSJNIT before any other graphics routine; if 
you don't, almost every graphics routine called will either be ignored or will cause an error. As 
its name implies, it initializes the graphics system; that is, it sets various graphics parameters to 
their default values. These are the operations performed by the GRAPHICSJNIT routine: 

• Sets the aspect ratio to 1; 

• Sets the virtual coordinates and viewport limits to range from 0.0 to 1.0 in both the X and Y 
directions; 

• Sets the world coordinate limits to range from - 1.0 to + 1.0 in both the X and Y directions; 

• Sets the starting position to 0,0 in world coordinates; and 

• Sets all attributes to their default values. 



In case there were any unfamiliar concepts referred to above, don't panic. We will soon cover all 
the above topics, and more. 

The following lines comprise the real guts of the S i n L i n e program: 

if X=i then mo us ( )</ 100 »Y ) 
else line (X/100 >Y) i 

In a loop, the statement moves to the first point returned by the DataPoint function, and 
draws to all the rest. Each successive point is determined by the loop control variable X for the X 
direction and the value returned by the function DataPoint for the Y direction. 

The call to the routine GRAPHICS-TERM should be the last graphics routine called. It termin- 
ates the graphics package. 

Scaling 

Probably the first reaction you had when looking at the previous plot was "That doesn't show me 
anything..." That's true; it doesn't show much information. There are two reasons for this. The first 
is that there is not enough variation in the curve; it's too flat to show us anything. The second is that 
it is all compressed on the right half of the screen. If we exaggerated the Y direction to the point 
where we could see the variations, the lines would be close enough to vertical that it would be 
somewhat difficult to interpret the curve. Therefore we must expand it toward the left. 

Both of these problems can be remedied by scaling. In this context, scaling could be defined as 
"defining the values the computer considers to be at the edges of the active plotting surface." 
The SET_WINDOW procedure defines the transformation used to map coordinates between 
the virtual display coordinate system (the coordinate system used by the DGL to describe the 
display device) and the world coordinate system (the coordinate system used by the user). 
Typically, the left edge is the smaller X, the right edge is the larger X, the bottom is the smaller 
Y, and the top is the larger Y 1 . Thus any point you plot which falls into these ranges will be 
visible. 



1 This is by convention only. If you specify a value for the left (or bottom) edge which is greater than the value of the right (or top) edge, it is 
perfectly legal. The only restriction is that the left edge must not equal the right edge. The same goes for the bottom and top edges. 



98615-90035, rev: 11/84 



10 Introduction to Graphics 



In our progressive example, the statement calling SET„WINDOW says that an X value of should 
be precisely on the left edge of the screen, an X value of 100 should be on the right edge, a Y value 
of 0.16 is on the bottom, and a Y value of 0.18 is on the top. 

The procedure SET_WINDOW typically causes anisotropic scaling to be invoked. Anisotropic 
scaling means that one unit in the X direction is not forced to be the same length as one unit in the Y 
direction. Conversely, isotropic scaling means that one unit in the X direction is equal to one unit in 
the Y direction, as in a road map. Isotropic scaling is desirable in many cases. In many other cases, 
however, it is not. In this example, we are graphing the voltage from a sensor versus time, and it 
makes no sense at all to force seconds to be just as "long" as volts. Since we are dealing with data 
types which are not equal, it would be better to use unequal, or anisotropic, scaling. 

We said that the SET_WINDOW procedure "typically" causes anisotropic scaling to be invoked 
because there is no procedure that guarantees that the scaling will be isotropic. You can, by doing 
calculations with aspect ratios, figure what the exact values are to send to SET_WINDOW to force 
isotropic scaling. This will be covered in the next chapter. Here is the next version of our progressive 
example. It is in the file "SinWindow" on the DGLPRG disc. 




program SinWindow(outPUt) i 

import d i 1 _ 1 i b i 

const 

CrtAddr= 3i 

C o n t r o 1 N o r d = ! 

»ar 

ErrorReturn: integer! 

X : integer! 

Y : real! 

* include 'DGLPRG : at aPo in t '% 



{Jet Graphics routines} 

{address of internal CRT} 
{device control; for CRT} 

{variable for initialization outcome} 



{function: y:=f(x) } 
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beSin {body of program "SinWindow" > 

iraphics_initi {initialize the 3 r a p h i c s system} 
display_init(CrtAddr .Cont rolWord .ErrorReturn) i {which output device?} 

if Erro rReturn=0 then besin {output device initialization OK?} 

set_window(0 ilOO tO. 16 tO. 18) i {scale the window for the data} 

for X: = l to 100 do beJin {100 points total} 

Y: =Data Point (X) i {Set a point from the function} 

if X = 1 then m o v e ( X > Y ) { m o u e to the first point...} 

else line (XtY) { , , , and d raw to al 1 the rest} 
end! {for X:=l to 100} 
end! {Erro rRe turn=0?} 

3raphics_te rmi {terminate the Graphics pacKaie} 

end. {pro 3 ram "SinWindow"} 

Granted, it would be nice to know what we are plotting, and what the units are, etc., but we'll 
get there in due time. 

Setting the Aspect Ratio 

You may have noticed on the last plot that the curve did not extend to the right and left edges of 
the screen. In fact, the area of screen which was used was exactly as wide as the screen is high. 
Thus, the aspect ratio — the width of the screen divided by the height — is exactly 1. This was 
the second operation done by the procedure GRAPHICS_INIT, mentioned previously. 

For most applications, one would not want to be restricted to using only a square area in the 
middle of the screen. The procedure used to change the aspect ratio of the plotting surface is 
SET_ASPECT. When calling the SET_ASPECT procedure, only the ratio of the two parameters 
is used; thus, the values may be virtually anything, as long as the ratio between them is 
reasonable. 

To set the aspect ratio such that it will use the entire screen of a Model 36 computer, call the 
SET_ASPECT procedure with parameters 511 and 389. These are the number of pixels in the 
X direction minus one, followed by the number of pixels in the Y direction minus one. Distance 
measures the amount of space between pixels 1 , not the number of pixels. To illustrate the 
reason why 1 must be subtracted from both values, imagine a very low-resolution graphics 
display: 3 pixels in the X direction by 2 pixels in the Y direction. 



(0,1) (1,1) (2,1) 



(0,0) (1,0) (2,0) 



1 The word "pixel" is a blend of the two words "picture element." and it is the smallest addressable point on a plotting surface. A Model 36 
computer has 512 x 390-pixel resolution; thus there can be no more than 512 dots drawn in any one row of the CRT. or 390 dots drawn in 
any one column. 
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As you can see, the distance between the rightmost pixels and the leftmost pixels is 2, and the 
distance between the uppermost pixels and the lowest pixels is 1 . Thus, the ratio of width to height 
of this plotting surface is 2:1, rather than 3:2, as it would be if number of pixels were used. 

From the previous explanation, it follows that the correct values to pass to the SET_ASPECT 
procedure would be 511 and 389 for the Models 217 and 236; 399 and 299 for the Models 216, 
220 and 226; 1023 and 751 for the Model 237 (with type-ahead buffer); or 1023 and 767 for the 
Model 237 (with type-ahead buffer removed). These numbers are the numbers of pixels in the X 
and the Y directions, respectively, for those computers. 

In the next version of our progressive example, the only change is that the aspect ratio has been 
altered so the whole screen has been used. The following statement was placed immediately 
prior to the SET_WINDOW statement: 

se t_aspec t ( 51 1 »389 ) 5 

This program may be found on file "SinAspect" on the DGLPRG: disc. 




This plot looks better than the last one; the whole screen is being used. There is still one 
problem, though. We can see relative variations in the data, but what are the units being used? 
We saw at the very beginning of the chapter that we were measuring voltage, but with the plot 
at its current state, we don't know if the height of the curve is signifying differences of micro- 
volts, millivolts, megavolts, dozens of volts, or what? And we probably wouldn't want the text 
(explaining units, etc. ) to be written in the same area that the curve is in. as it could obstruct part 
of the data curve. Therefore, we need to be able to specify a subset of the screen for plotting the 
curve and put explanatory information outside this area. The next section tells you how to do 
this. 
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Defining a Viewport 

A viewport is a subset of the plotting area into which the window limits are linearly mapped. It is 
specified in virtual coordinates. 

Virtual Coordinates and World Coordinates 

Before we define a viewport, we need to know about the two different types of units which 
exist. These two types of units are virtual display coordinates and world coordinates. Since a 
viewport is a "window" onto which the world coordinates are mapped, and in order for 
viewports to be predictable, they must be specified in units which are not dependent upon the 
user's graphical model — the world coordinates. Since world coordinates are associated with the 
graphical model employed by the user, and virtual coordinates are associated with the display 
device, it makes much more sense to use virtual coordinates when specifying the limits of a 
viewport. (Note that world coordinates are set when specifying a window — they both start with 
"w" — and virtual coordinates are set when specifying a viewport — they both start with "v".) 
Virtual coordinates always range from 0.0 to 1.0 in one direction, and 0.0 to a number dictated 
by the aspect ratio in the other direction. A viewport is associated with the display device, rather 
than the graphical model used in your program. 

These are the most important characteristics of virtual coordinates: 

• The lower left of the plotting area is always 0,0. 

• Virtual coordinates are isotropic; that is, one unit in the X direction is the same distance as 
one unit in the Y direction. 

• Virtual coordinates are limited to the range through 1. The maximum coordinate on one 
side is 1, and the maximum coordinate on the other side is less than or equal to 1. 

The following discussion assumes that the aspect ratio is set such that the whole screen is used: 
511/389 for the Models 217 and 236; 399/299 for the Models 216, 220 and 226; or 1023/767 for 
the Model 237. Since the height of the screen is less than the width of the screen, the longer edge is 
in the X direction, therefore, Xmax in virtual coordinates is 1.0. If the screen had been higher than it 
is wide, Ymax in virtual coordinates would have been 1.0. That was the easy part. Once you've 
decided which edge is longer, and thus defined the units along that edge, you need to find out the 
length of the shorter sides in virtual coordinates. Typically, these values will be known because you 
explicitly specify the aspect ratio yourself. However, if you don't know the aspect ratio (and 
therefore the virtual coordinates maxima), you can interrogate the system with a call ot the INQ_ 
WS procedure 1 . This will be done in the next chapter. For now, though, we'll just observe that the 
virtual coordinate limits (for the entire screen, remember) are 0.0 to 1.0 in X, and 0.0 through 
299/399 = 0.749373433584 (on the Models 216, 220 and 226), 0.0 through 389/511 = 
0.761252446184 (on the Models 217 and 236), or 0.0 through 767/1023 = 0.749755620723 on 
the Model 237). 



1 The INQ-WS procedure is a DGL procedure through which you can find out various parameters of the graphics systen 
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Specifying the Viewport 

The SET_VIEWPORT procedure sets up a transformation which will convert points in world 
coordinates into points on the plotting surface. The call to SET„VIEWPORT in the following 
program specifies that the lower left-hand corner of the viewport area is at 0.10,0.12 and the 
upper right-hand corner is at 0.99,0.70. 

s e t_u i ewpo rt ( * 1 .0 . 99 .0 ,12>0. 70 ) 5 

This is the area which the SET_WINDOW procedure affects. We will also draw a box around 
the viewport limits by drawing the rectangle bounded by - 1 and 1 in both the X and Y 
directions. (The default window limits are - 1 to 1 in both directions.) It is done in this example 
so you can see the area specified by the SET_VIEWPORT procedure call. 

And here is the output from the next version of our progressive example (found on file 
"SinViewpt" on the DGLPRG: disc). The only change is that a call to SET_VIEWPORT has 
been placed immediately after the line calling SET_ASPECT. 
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Labelling a Plot 

With the inclusion of the call to the SET_VIEWPORT procedure, we have enough room to 
include labels on the plot. Typically, in a Y-vs-X plot like this, there is a title for the whole plot 
centered at the top, a Y-axis title on the left edge, and a X-axis title at the bottom. 

The DGL procedure GTEXT writes text onto the graphics screen. You can position the label by 
calling MOVE to get to the point at which you want the label to be placed. It is the lower left 
corner of the label which ends up at the point to which you moved. In other words, we will 
move to the position on the screen at which we want the lower left corner of the text to be 
placed. 

Notice in the following plot that the Y-axis label on the left edge of the screen is created by 
writing one letter at a time. We only need to move to the position of the first character in that 
label because we terminate each one-character GTEXT call with a carriage return/linefeed. This 
causes the pen to go one line down, ready for the next (one-character) line of text. (There is 
another way to plot vertical labels; we'll see it shortly.) 



VOLTAGE VRRIRNCE 



V 
o 

1 

■t 
a 

g 




(seconds ) 



pros 

impo 

cons 

Cr 

Co 

var 

Er 

St 

Ch 

X: 

Y: 

$inc 

$paS 

be Si 

Srap 

disp 



ram SinLabell ( output ) i 

rt dsl_libt dsl-inii 

t 

tAddr= 3i 

n t r o 1 1*1 o r d = 5 



{Set Sraphics routines} 

{address of internal CRT} 
{device control! for CRT} 



{variable for initialization outcome} 
{seven characters in 'UoltaSe'} 
{loop counter for labelling} 



rorReturn: inteSeri 
rnS: strinSC7]i 
aracter: inteSeri 

inteSeri 

real i 
lude 'DGLPRG:DataPoint '$ {function: y:=f(x) } 

e$ {#*#######**#*#**###***#*##♦*##*#♦###**##***#**********#***##*****#**} 
n {body of pros ram "SinLabell"} 

hios.initi {initialize Sraphics system} 

lay.init (CrtAdd r tCont rolWord tErro rReturn ) i {which output device?} 
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if Er ro rRe t u rn=0 then be sin {output device initialization OK?} 

set_aspec t ( 51 1 »389) i {use the whole screen} 

m o u e ( - . 4 5 > 1 9 ) i {starting point for the title} 

StexU 'VOLTAGE VARIANCE')! {label the plot} 

St rnS: = 'Vol taSe ' i {the y-axis label} 

nioue ( -0.95 » 0,3) i {start in 3 point for the y-axis title} 

for Character:=l to st rlen ( St rnS) do {follow every character...} 

StexUst r(St rnsf (Character .1 )+chr( 13)+chr( 10) ) i {...with a CR/LF} 

lit o i.i e ( - . 3 i - . 9 ) ; { s t a r t i n i point for the x - a x i s label} 



StexK'Tiine (seconds) 
set-viewport (0. 1 .0.99 »( 
in o u e ( - 1 . - 1 ) i 1 i n e ( 1 i - 1 
set_window(0 » 100 >0> 1G »( 



! {x-axis label} 

0,12»0.7) i {define subset of screen} 

1 i n e ( 1 1 1 ) i 1 i n e ( - 1 * 1 ) i 1 i n e ( - 1 > - 1 ) ! {frame} 

. 1 8 ) i {scale the window for the data} 

for X:=l to 100 do besin {100 points total} 

Y:=DataPoint (X) i {Set a point from the function} 

if X = 1 then m o u e ( X . Y ) {move to the first point...} 

else line(X.Y)i {...and draw to all the rest} 
endi {for X:=l to 100} 
end! {Er ro rReturn=0?} 

Sraph ics_t e riii i {terminate the Jraphics pacKaSe} 

end. {pro J ram "SinLabel 1 " } 

This gets the point across, but it would be nice if we could cause some labels to be more 
obvious by making them bigger; for example, on the main title. Also, you may want the Y-axis 
title to be turned on its side, and not do the carriage return/line feed trick we did last time. 

Setting Character Size 

The DGL procedure SET_CHAR_SIZE sets two attributes' of all subsequent characters, namely 
the width and height of the character cells. A character cell contains a character and some blank 
space above, below, to the left of, and to the right of the character. This blank space allows 
packing character cells together without making the characters illegible. The amount of blank 
space depends, of course, on which character is contained in the cell. The values sent to 
SET_CHAR_SIZE are expressed in world coordinates: 

set_char_size(Width< Height)? 

When a character size is selected, the width and height associated with a character cell are 
defined for an unrotated character cell. Thus, when a character is rotated, its shape does not 
change, even though its width (measured along the X axis) and height (measured along the Y 
axis) are not the same directions as the display device's axes. 

The ability to specify character sizes in world coordinates is valuable when doing graphical 
output in which the labels are to remain with the objects they describe. In these cases, the 
characters are scaled using the same scaling as the objects drawn. 

In the following program (program Sin La be 12 on a file by the same name on the DGLPRG: 
disc), the character width and height are defined to be something on the order of 2*0 , 04. The 
reason that a 2 was used in these expressions is that the current (default) window limits were 
- 1 to 1, for a distance of 2. The 0.04 comes from the fact that we wanted 4% of the window 
distance in that direction. 



1 An. attribute, in this context, is a piece of information which helps define or describe some object. 
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Centering Labels 

In that last program, the labels looked reasonably centered. This was only because the starting 
point was arrived at in a hit-and-miss manner. The main characteristic of labels which makes it 
difficult to center them is this: the reference point of a label is the lower-left corner of the label. 
That is, the point you moved to just prior to writing the label will end up at the lower-left hand 
corner of the label. If we want our labels to be centered, we must figure out how long each label 
is, subtract half that length from the X position of where we want the center of the label to be 
placed, and then write the label. 

We know what the characters' sizes are; we can set it with the SET_CHAR_SIZE procedure. We 
can also determine how long the string of text to be labelled is. This is found by using the 
standard procedure STRLEN. If you give it a string, it will return the length (in characters) of 
that string. 

Horizontal centering of a string, then, can be accomplished by subtracting the value returned by 
the following expression from the desired X position of the center of the label 1 : 

(strlen(Text)*CharWidth)/2 

Thus, if we want a label centered horizontally about the point X, and at a Y value of Y, we could 
say: 

mo Me (X-( st rlen (Text )*CharWidth)/2 »Y) 1 

Setting the Label's Direction 

Quite often, labels need to be at some other angle than horizontal. We saw a few pages ago that 
a vertical label could be done — albeit somewhat clumsily — by labelling one horizontal character 
at a time, and following each by a carriage return/line feed. What we need is a way to specify 
that we want labels to be plotted at whatever angle we specify. 

Through the DGL procedure SET_TEXT_ROT, you can specify the amount of rotation you 
want the label to undergo. However, you must specify this in two pieces: the X displacement 
and the Y displacement. For example: 

set_text_rot(2»-l) ! Label goes down and right; a -26.57° angle. 

set_text_rot(i » ) ! Label is horizontal; default direction. 

set_text_rot(87»87) 5 Label goes up and right at a 45° angle. 

set_text_rot(Ot5) \ Vertical label; ascending. 

set_text_rot(-l » ) ? Upside-down label. 

The SET_TEXT_ROT procedure deals only with the ratio of the run and rise parameters. Thus, 
multiplying both parameters by the same number will not change the angle at which the 
subsequent labels are written. The third example above, which sets both the run and the rise to 
87, could have used any two numbers as parameters, as long as they equaled each other. 
Going 87 units up for every 87 units to the right yields the same angle as going 19 units up for 
every 19 units to the right, etc. 



1 This is quite close to the truth, but is an approximation. There is an inter-character gap, which is the space caused by the fact that a character is 
placed inside a character cell, and it is complicated because the amount of space on the left side of a character is different from the amount of 
space on the right. See the Character Cell section in the next chapter. 
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Any particular angle you want can be passed to the SET_TEXT_ROT procedure by operating 
on the angle with the cosine and sine functions. For example, to cause labels to be written at an 
angle of tt/4 (a 45° angle), you could use the following statement. It assumes there is a constant 
called P i which has a value approximately equal to 3.1415926535897. 

set_text_rot(co5( Pi/ 180**15) tsin! Pi/ 180*45) ) 5 

With these two statements, we can make a marked improvement in the quality of the output. 
The next version of our progressive example uses them. 



VOLTAGE VRRIRNCE 



en 

(0 

-p 
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> 




T i me (seconds ) 



pros ram SinLabe 12 ( output ) 5 

ifflpo rt d S 1 _ 1 ib » dsl_inq ! 

const 

CrtAd.dr= 3i 

Contra lWord= Oi 

var 

CharWidth: real! 

CharHei Sht : real i 

Text: st r ins [20] i 

ErrorReturn: inteSeri 

X : inteSeri 

Y : real! 

♦include 'DGLPRG:DataPoint '$ 



(Set Sraphics routines} 

{address of internal CRT} 
{device control! for CRT} 

{width of character in world coords} 
{heiSht of character in world coords} 
{temporary hoi dins place for text} 
{variable for initialization outcome} 



{function: y:=f(x) } 



*paSe$ {♦#♦***###********#♦**##**#*****#************************************} 
besin {body of proSram "SinLabel2"} 

Sraphics_initi {initialize the Sraphics system} 

display_init (CrtAddr iControlWord (ErrorReturn) i {which output device?} 
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if ErrorReturn=0 then besin {output device initialization 0K?> 

set_aspect (51 1 >389) i {use the whole screen} 

CharWidth : =2*0. 04 5 {char width: HI of screen width} 

CharHei Jht:=2*0.0Bi {char heiJht: BX of screen height} 

set_char_size(CharWidth iCharHeiSht ) i {install character size} 

Text:='UOLTAGE VARIANCE' i {define the text to be labelled} 
move(-(st rlen(Text)*Charklidth)/2 t0.9) i{ Jo to start point for centered label} 

Jtext(Text)! {label the text} 

set_text_rot( 0.1)5 {vertical labels} 

CharWidth : =2*0. 025 i {char width: 2,51 of screen width} 

CharHei Jht :=Z*0.04i {char heisht: HI of screen heiJht} 

set_char_size(CharWidth .CharHei Jht ) i {install character size} 

Text : = 'MoltaJe ' i {define the text to be labelled} 
move(-0.9t-(st rlen (Text )*CharWidth ) /2) i {start point of centered label} 

Jtext(Text)! {label the text} 

set_text'_rot ( 1 .0) i {horizontal labels} 

Text:='Time (seconds)'i {define the text to be labelled} 
move(-(st rlendext )*CharWidth)/2 t-0.92) i {start point of centered label} 

Jtext(Text) i {label the text} 

set-viewport (0. 1 »0.99»0. 12*0.7) i {define subset of screen} 
move(-l.-l)i line(-l»l)i lined »l)i lined i-l)i line (-1 »-l ) !■ {frame} 

set_window(0 tlOO )0. 16 »0. IB) i {scale the window for the data} 

for X: = l to 100 do beJin {100 points total} 

Y: =DataPoint (X) i {Jet a point from the function} 

if X=l then move(XtY) {move to the first point...} 

else line(XtY)! {...and draw to all the rest} 
end! {for X:=l to 100} 

end! {Erro rReturn=0?} 

Jraphic5_te rm i {terminate the Jraphics pacKaJe} 

end. {proJram "SinLabel2"} 

Bold Labels 

Many times it's nice to have the most important titles not only in large letters, but bold letters, to 
make them stand out even more. It is possible to achieve this effect by plotting the label several 
times, moving the label's starting position just slightly each time. In the following version of the 
program (on file "SinLabel3" on your DGLPRG : disc), notice the FOR loop used when labelling 
the main title. The loop variable, X, goes from - 3 to 3. This is the offset in the X direction of the 
label's starting position. 

The only change in the program was that the statements labelling the main title: 

move(-(strlen(Text)*CharWidth)/2»0.9)> 
3t e x t ( Tex t ) i 



were replaced by the following: 



for X : = - 3 to 3 do b e a i n 

move ( - ( st rlen (Text ) *Ch a rWi d t h ) /2 + X #0.002 >0,9) 5 

<?text (Text ) 5 
e n d 5 



This method can also be used for offsetting in the Y direction. Or, offset both X and Y. This will 
give you characters which are thick in a diagonal direction, which makes them look like they are 
coming out of the page at you. However, a more typical holding is produced by offsetting only 
in the X direction. 
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Now we know what we are measuring — voltage vs. time — but we still do not know the units 
being used. What we need is an X-axis and a Y-axis, to show us where to put the numbers. 



Axes and Tick Marks 

When drawing axes, they are typically composed of a straight line defining the axis itself, and 
short lines, perpendicular to the axes, to indicate the spacing of units. These short lines are 
called tick marks. Usually, the tick marks are grouped into multiples of a nice round number so 
as to make it easier to understand where the multiples are. These groups are delimited by 
causing the first tick mark in each group to be larger than the rest. 

When writing an axis routine, it is almost always desirable to cause a major tick mark to be 
coincident with the other axis. For example, if you draw an X axis and select a major tick count 
of five, it would probably be undesirable to have a minor tick mark (say, two ticks to the right of 
a major tick) cross the Y axis. This would mean that you would have to go three ticks to the right 
of the Y axis to find a major tick, but only two ticks if you were going to the left. 

Following are some sections of code that do the processing necessary for an axis; an X-axis in 
this case. A Y-axis proceeds with similar steps. Assume the following variables are defined: 

Spacing: The distance between tick marks on the axis. 

Location: The Y-value of the X-axis. 

Xmin,Xmax: The left and right ends of the X-axis, respectively. 

Major: The number of tick marks to go before drawing a major tick mark. If 

Major = 5, every fifth tick mark will be major. 

Majsize: The length, in current units, of the major tick marks. 

Minsize: The length, in current units, of the minor tick marks. 
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The first thing you would do is to draw the axis itself. Its length would be from XmintoXmax, and its 
Y-position would be Location: 

moue(Xmin (Location ) i 
1 in e (Xmax (Location) i 

If the lengths of the major and minor tick marks are M a j s i z e and M i n s i z e , then half those lengths 
would be on each side of the axis. Rather than dividing by two at every tick, let's do the 
divisions once and put the values into their own variables: 

SeiiiiMinsize:=Hirisize*0.5! 
SemiMaJsize:=MaJsize*0i5i 

We need to round the starting value down to the next major tick mark. The function being used 
here is a user-defined rounding routine which can round down, up, or to the nearest multiple of 
the specified value. 

X:=Round2(XiTiintSpacin3*MaJoriDowri)i 

If you do not need or want to force a major tick mark to be at X = 0, you could replace the 
previous statement with the following, which forces a tick, not necessarily a major one, to be at 
zero: 

X : = R a u n d 2 ( X m i n tSpacinS (Down) i 

Or, you may not want to round at all; you may want to start making tick marks at the value of 
Xmi n no matter what its value — whether it's a nice round number or not. In this case, replace the 
previous statement with this: 



Now we need to draw all the tick marks. The distance between consecutive ticks is defined by 
Bpacins. Every Nth tick will be a major tick, where N is the current value of Ma J or. A counter (of 
type INTEGER or some subrange) will be employed which will be incremented at every itera- 
tion and will wrap around. Every time the counter's value is zero, it is time for another major tick 
mark. 

Coumter:=Oi 

while X<=Xmax do be Sin 
if Counter = then besfin 

mowe(X»Looation-SeffliMaJsize)i 
line(XtLocation+BemiMaJsize)i 
end {Counter^?} 
else beSin 

moue(XiLocatiori-BemiMinsize)i 
line(XiLocatioti + SemiMinsize)i 
end! {else b e 3 i n } 
Counte r: = (Counte r+1 ) mod MaJori 
X:=X+Spacinsf i 
end! {while} 
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Here is the next version of our progressive example. It draws both an X and a Y axis. For a 
complete listing of this program, see the Appendix. 
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T i 



C seconds ) 



program BinAxesl ( output ) 5 
import d 3 1 _ 1 1 b i d 3 1 _ i n i ! 
const 

CrtAddr= 3i 

Cont rolWo rd= 0! 
type 



R o u n d T y p e = 
var 

CharWidth : 

CharHei 3ht : 

Text: 

Erro rReturn 

X: 

Y: 



(Up j Down i Near ) i 

real ! 
real ! 

st rinSEZO] i 
i n t e 3 e r i 
i n t e 3 e r i 
real i 



^include 'DGLPRG:Dat aPo in t '* 



{3et 3raphics routines} 

{address of internal CRT} 
{device control! for CRT} 

{used by procedure R o u n d 2 } 

{width of char in world coords} 
{ h e i 3 h t of char in world coords} 
{temporary hoi din 3 place for text} 
{variable for initialization outcome} 



{function: y:=f(x) } 



Procedures Xaxis and Yaxis, and function Round 2 go here. 



b e 3 i n 

3 raphi c 

display 

if Erro 

se t_a 

CharW 

CharH 

set_c 

Text : 

for X 

m o v 

3te 

e n d i 



s _ l n l 

_ i n i t 

rRetu 

spect 

idth: 

ei3ht 
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= '00L 
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(Crt 
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(511 
= 2*0 
:=2* 
ize( 
TAGE 
to 3 
trie 
xt) i 



Addr 

the 

,389 

. 04 \ 

0.08 

Char 

OAR 

do 

n(Te 



{body of pro 3 ram "SinAxes 1 " } 
{initialize the 3raphics system} 
iCont rolWo rd tErro rReturn ) i {which output device?} 
n be sin {output device initialization OK?} 

i {use the whole screen} 

{char width: 47, of screen width} 
{char heisht: HI of screen heisht} 
{install character size} 
{define text to be labelled} 
{make "bold" label} 
xt )*CharWidth)/2+X*0,002 »0.9) ! {center label} 
{label the text} 



Width iCharHei3ht ) i 
IANCE' i 
b e 3 i n 
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set_text_rot (0 tl ) i 
CharWidth:=2*0.025i 
CharHei Sht:=2*0.04i 
5et_char_size(CharWidth»CharHei3ht)i 
Text:= 'OoltaSe ' i 



{vertical labels) 

{char width: 2.57, of screen width) 
{char height: HI of screen heisht) 
{install character size) 
{define the text to be labelled) 



moue(-0i9 f-(strlen(Text )*CharWidth )/2) i {start point of centered label) 

Stext(Text)i {label the text) 

Text:='Time (seconds)'! {define the text to be labelled) 

set_text_rot ( 1 »0) ! {horizontal labels) 

moue(-(strlen(Text )*Charl«lidth )/2 t-0.92) ! {start point of centered label) 

Jtext(Text) i {label the text) 

set_viewport (0. 1 tO.99 tO. 12 t0.7) i {define subset of screen) 

move ( -1 »-l ) i line(-ld)i liitedilll linedi-D! line(-l»-l)5 {frame) 



set_windaw(0tl00»0. 16>0. 18) i 
Xaxis( 1 tO. 1G i-50 1 150 »5 (0.001 tO 
Yaxi s(0.001 tOtO.l »0.2(5»2»1) i 
for X: = l to 100 do be sin 
Y:=DataPoint(X) i 
if X=l then moue(X.Y) 
else 1 ine(X*Y) ! 
end! {for X: = l to 100) 
end! {Erro rReturn=0?) 
Sraphics_te rm i 
end. 



{scale the window for the data) 
0005) i {d raw the x-axis) 
{draw the y-axis) 
{100 points total) 
{Set a point from the function) 
{move to the first point...) 
{...and draw to all the rest) 



{terminate the Graphics package) 
{program "SinAxesl") 



This version is better than the last; it has axes and we can see the units they're delimiting, but 
obviously, there is a big problem. Not only do the axes and tick marks appear where we want 
them, they are also many places where we don't want them. We want the axes to stop at the 
limits of the window, and we also want the tick marks to extend only toward the interior of the 
graph. What we want is clipping. 

Clipping Lines 

Clipping is a method of defining edges of a plotting area, and drawing things which are cut off at 
those defined edges if they hang over. This is analogous to describing a large drawing on a huge 
sheet of paper, and but only drawing those parts which are inside some rectangle. What this 
means is that when clipping is invoked, everything inside the rectangle should look identical to 
the image (inside the same rectangle) created when clipping is not invoked. Only the things 
outside the rectangle are affected. Clipping affects lines, text, markers, and polygons. 

Clipping a line consists of determining how much of a line is within the clipping limits, and then 
drawing only the visible part. There are four distinct cases: 

Clipping Limits 



The line is contained entirely within the clip limits. 
Therefore, using the original endpoints, draw the entire 
line. 



One endpoint is within the clip limits, but the other one 
is outside. Therefore, find the intersection between the 
line to be clipped and all clip limits which intersect it 
(two at the most). Draw the line from the visible en- 
dpoint to the closest edge-intersection. 
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Both endpoints are outside the clip limits, but some 
middle part of the line is visible. Do the same operation 
as for the single invisible endpoint above, but for both 
endpoints. 




The entire line is invisible. Reject it; do nothing. 



\ 



s. 



>. 



1 



DGL clips images at the display limits — those limits set by the SET_DISPLAY_LIM routine. 
Often, however, you may wish to clip at other boundaries than the logical display limits. In 
addition, the parameters for SET_DISPLAY_LIM are expressed in millimeters. Millimeters are 
quite adequate for setting display limits, but are usually clumsy to work with when the rest of the 
graph is in world coordinates. But there is a way to do it. There is a DGL routine called 
CONVERT_WTODMM, which converts world coordinates to millimeters on the display surface. 
However, SET_DISPLAY_LIM may reset the view surface limits, so some redefinition of other 
parameters may be necessary. Thus, you can clip using these two routines in conjunction with 
each other. 

A User-Defined Clipping Algorithm 

In the appendix is a listing of the program "SinClip", which uses a clipping routine' called 
CI ipDraw. Also included is a routine to which you pass the desired clip limits: CI ipLimit. 
The clip limits may be inside, outside, or coincident with the window edges. After the clipping 
limits have been defined, a line is passed to the clipping routine. Both endpoints of a line must 
be known, because intersections between the line being drawn and the edges of the clipping 
area must be calculated. 

These two clipping-related routines allow lines to be clipped outside of any desired rectangular 
area. However, the axis routines used in the last demonstration program must be modified to 
call the clipping routine. In addition, there is another modification which would be very conve- 
nient to have: 

It would be nice if we didn't have to pass the Xmin and Xmax or Ymin and Ymax to their 
respective routines so they would know where to start drawing tick marks. To do this, we'll just 
use the global variables CI ipXmin, ClipXmax, ClipYmin, CI if Ymax. Then we'll round the 
lower window limits down to the next value which would have a major tick mark. We round to a 
major tick mark because (in this case) we want the value of to have a major tick, regardless of 
whether zero is on the plotting surface. 

Installing the modified axis routines results in the following plot. The program may be found on 
file "SinClip" on the DGLPRG: disc. 



1 This clipping routine was adapted from a routine on pa<;e 66 of the excellent book: 
Principles of Interactive Computer Graphic*. William M Newman and Robert F. Sproull, Second Edition. 197'). McGraw-Hill. 
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This is a good general-purpose clipping routine which is independent of the output device used, 
and of the DGL implementation used. But as we noted earlier, only lines sent to the CLIP- 
DRAW routine were clipped, and therefore text, written by a call to GTEXT, in addition to 
markers and polygons, were not clipped. 

These axes look much better. Now we know where the numbers should be placed on the axes. 
Let's learn a little about labelling numbers. 

Labelling Axes 

In the process of labelling axes, we need to know how to convert numbers to strings which look just 
like the numbers. The reason for this is that the labelling procedure GTEXT can only accept a string 
for an input parameter. 

There is a standard procedure in Series 200 Pascal called STRWRITE. This allows you to use 
regular output formats, but, instead of sending the data to a file, the data is put into a string variable. 
The same format-controlling numbers after colons that can be used for WRITELN can be used for 
STRWRITE. Let's assume there are three variables defined: 

• A string variable Strns. This variable will receive the 
string version of the value converted from REAL; 

• An integer I . This is merely for a value returned from 
the STRWRITE routine. It indicates the location of the 
next unused character in the string; 

• And a REAL variable called X which we want to con- 
vert to a string. 

The actual conversion would be accomplished through the following statement: 



strurite(St rnS » 1 1 1 t K : G : 4 > i 

The : B after the X tells the computer that the entire field should be six characters wide. This 
includes the digits to the left of the decimal point, the decimal point itself, and the characters to 
the right of the decimal point. 
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The : 4 tells the computer that there are to be four digits to the right of the decimal point. 

In this program also, we center the labels horizontally by subtracting half the length of the labels 
from the desired position for the center of the label. 



VOLTRGE VARIANCE 




Time (seconds) 



p ro 

i dip 

con 

C 

C 

typ 

R 

Ma r 

C 

C 

T 

E 

I 



3 r a m S i n A x e s 2 ( o u t p u t ) i 
o r t d i 1 _ 1 i b i 

st 

rtAddr= 3i 

o n t r o 1 W o r d = i 

e 



o u n d T y p e = 

harklidth: 
harHeiSht : 
ext : 
rro rReturn 



{Set Graphics routines} 

{address of internal CRT} 
{device control; for CRT} 



( U p i D o u n t Near)! 



{used by function Round2} 



C 1 i p K iii in i CI i pXmax : 
C 1 i p Y iti i n i Clip Y max : 
$ in elude 'DGLPRG:DataPoin t '$ 



real i 
real ! 

s trims [20] i 
i n t e 3 e r i 
i n t e $ e r i 
i n t e 3 e r i 
real i 
real i 
real i 



{width of char is world coords} 
{heisht of char is world coords} 
{temporary holdini place for text} 
{ m a r i a b 1 e for initialization outcome} 
{return variable from STRWRITE} 



{soft clip limits in x} 
{soft clip limits in y } 
{function: ■/ : = f ( x ) } 
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*paSe* {##**##**♦*#*#***♦#***********#***#»*♦****************♦*#**♦*********} 
procedure CI ipLimi t (Xmin . Xmax » Ymin. Ymax: real)! 

{ > 

{ This procedure defines the four Global variables which specify where the } 
{soft clip limits are. > 

{ > 

be Sin {body of procedure "CI ipLimit" } 

if X in i n < X max then beSin i \ > 

CI ipXmin : =Xw in i { \ Force the minimum soft } 

ClipXmax:=Xmax ! { \ clip limit in X to be } 

end { \ the smaller of the two } 

e 1 s e b e 3 i n { /X values passed into > 

ClipXmin:=Xmax i i I the procedure. } 

ClipXmax: =X«iin i if } 

end! { / > 

if Ym in (Ymax then be i in i \ > 

ClipYmin: =Ymin ! { \ Force the minimum soft } 

ClipYmax:=Ymax ! { \ clip limit in Y to be } 

end { \ the smaller of the two) 



Force the minimum soft 
clip limit in Y to be 
the smaller of the two 
Y values passed into 
the procedure. 



C II 'J 

e 1 s e b e s i n { /Y values passed into > 

ClipYmin :=Ymax i i I the procedure. } 

CI i pYmax : =Ymin i if } 

end! { / > 

end 5 {procedure "ClipLimit"} 

$pase$ {#**#**#*****#**###***#***♦*#*#*♦****#***♦*******♦**********#********} 
procedure ClipDrawtXl. Yl , X2 » Y2: real)! 

{ } 

{ This procedure takes the endpoints of a line » and clips it. The soft > 
{ clip limits are the real Global variables ClipXmin. ClipXmax. ClipYmin. } 
{ and ClipYmax. These may be defined through the procedure ClipLimit. } 



label 
1 ; 

type 

Ed3es= (Left .RiSht .Top .Bottom) i {possible edSes to cross} 
OutOfBounds= set of EdSes! {set of edSes crossed} 



•} 



var 

Out tQutl .0ut2:0ut0f Bounds! 
X. Y: real ! 



procedure Code(X» Y: real! var Out: OutOf Bounds) 5 

be <T in {nested procedure "Code"} 

Out : = [ ] ! {nul 1 set} 

if x<ClipXmin then u t : = C 1 e f t ] {off left edSe?} 

else if x>ClipXmax then Out : = [ ri Sht 1 i {off riiht edse?} 

if y<ClipYmin then Out : =0ut+[ bottom] {off the bottom?} 

else if y>ClipYmax then Out : =0ut + C top] i {off the top?} 

end! {nested procedure "Code"} 



28 Introduction to Graphics 



{ > 

beSin {body of procedure "ClipDraw"} 

Code (XI »Y1 fDut 1 ) i {figure status of point 1 } 

Code(X2 »Y2 »0ut2) i {fiSure status of point 2} 

while ( u 1 1 < > [ ] ) or ( u 1 2 < > [ ] ) do b e S i n {loop while either point out of r a n J e } 
if (Out 1*0 lit 2 )< >[ ] then Soto li {if intersection non-null* no line} 
if Out IOC] then 0ut:=0utl 

else u t : = u 1 2 ! {Out is the non-empty one) 

if left in Out then besin {it crosses the left e d S e } 

■/ : = Y 1 + ( Y 2 - Y 1 )*(C1 ipKmin-Xl ) / (X2-X1 ) »{ad Just value of v appropriately} 
x : =C1 ipXmin ! {new x is left edse} 

end {left in Out?} 
else if r i S h t in Out then b e S i n {it crosses riflht e d S e } 

y : =Yl + ( Y2-Y1 )*(C1 ipXmax-Xl ) / (X2-X1 ) Had Just value of y appropriately} 
x : =C1 ipXmax ! {new x is risht edse} 

end {risht in Out?} 
else if bottom in Out then beSin {it crosses the bottom e d S e } 

x : =!<1 + ( X2-X1 ) * ( CI i pYfriin-Yl ) / ( Y2-Y1 ) ;•{ ad Jus t value of x appropriately} 
y : =C1 i pYmin ? {new y is bottom edSe} 

end {bottom i n Out?} 
else if top in Out then b e S i n {it crosses the top edse} 

x:=Xl + (X2-Xl )*(ClipYmax-Yl )/( Y2-Y1 ) i{ad Just value of x appropriately} 
■/:=ClipYmaxi {new v is top edse} 

end! {top in Out?} 
if Out=Outl then beSin 

X 1 : = x i Yl : =y ! C o d e ( x . y » u 1 1 ) i {redefine first end point} 
end {Out=Outl?} 
else basin 

X2: = xi Y2:=yi Code ( x iv t0ut2 ) i {redefine second end point} 
end! {else b e S i n } 
end! {while} 

m o v e ( x 1 > y 1 ) i {if we Set to this point) the line...} 
1 ine ( x2 )'/2) i {...is completely visible i so draw it} 
1 : end! {procedure "ClipDraw"} 
$paSe$ {**#**#**#**##*#**#********##**********##*************************♦**} 
function Round2(N» li: real! Mode: RoundTvpe): real i 
{ } 

{ This function rounds "N" to the nearest "M" > accordins to "Mode". This } 
{ function works only when the arSument is in the ranSe of MINI NT ♦ . MAXINT. } 
{ } 

const 

e p s i 1 o n = i E - 1 i {roundoff error fudSe factor} 

var 

Rounded: real! { tempo r a rv ho Id in 3 area} 

Nesative: boolean! {flaS: "It is nesative?"} 

beSin {body of "RoundZ"} 

N e S a t i v e : = ( N < . ) i {is the number nesative?} 

if Nesative then beSin 

N : = a b s ( N ) i {worK with a positive number} 

if Mode = L)p then Mode : = Down {if number is nesativei ...} 

else if Mode=Down then Mode:=Up! {...reverse up and down} 

e n d ! 



Introduction to Graphics 29 



case Mode of {should we round the number...} 

Down: Rounded : = t rune ( N/M)*M i {...left on the number line?} 

Up: be sin 

Rounded :=N/M! {...riSht on the number line?} 

if abs(Rounded- round (Rounded )) >epsi Ion then 

Rounded :=( t rune (Round ed)+l .0)*M 
else 

Rounded : =t runo( Round ed)*M! 
end! 
Near: Rounded : =t rune (N/M+M#0.5)*M i {...to the nearest multiple?} 
end! {case} 

if Negative then Rounded : = -Rounded ! {reinstate the siSn} 
Round2:=Rounded ! {assiJn to function name} 

end! {function "RoundZ"} 

*pa3e* {###*##*#*#*******###**#*#**#***##*#♦*********#****#***#**#******##**} 
procedure XaxisCl ipfSpacin § t Location: real! Major: integer! 

MaJsize (Minsize : real ) i 
{ } 

{ This procedure draws an X-axis at any intersection point on the plotting } 
{ surface. Parameters are as follows: } 

{ Spacinfl: The distance between tick marks on the axis. } 

{ Location: The Y-value of the X-axis. } 

{ Major: The number of tick marks to Je before drawing a major tick } 
{ mark. If MaJor=5. every fifth tick mark will be major. } 

{ MaJsize: The lenStht in world units* of the major tick marks. } 
{ Minsize: The lenSth* in world units* of the minor tick marks. } 

{ } 

1.1 a r 

X: real ) {X position of tick marks} 

SemiMaJsize: real! {half of major tick size} 

SemiMinsize: real! {half of minor tick size} 

Counter: integer! {keeps track of when to do major ticks} 

besin {body of procedure "XaxisClip"} 

SemiMaJsize : =MaJSize*0.5i {calculate half of major tick size} 

SemiMinsize:=MinSize#0.5i {calculate half of minor tick size} 

Counter:=Oi {start with a major tick} 

ClipDrawtClipXmin (Location tClipXmax (Location) i {draw the X-axis itself} 
X:=Round2(Cl ipXmin tSpacina*MaJor (Down) i {round to next lower major} 
while XOClipXmax do beSin {loop until greater than ClipXmax} 

if Counter=0 then {do a major tick mark?} 

ClipDraw(X(Location-SemiMaJsize(X(Location+SemiMaJsize) 
else 

ClipDr aw (X (Location -Be miMinsizeiX (Location +SemiMinsize)i {do minor tick} 
Counter: = (Counter+i ) mod Major! {keep track of which length tick to do} 
X: =X+SpacinS5 {Jo to next tick position} 

end! {while} 
end! {procedure "XaxisClip"} 
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*pa3e$ {#**#*#*##*##*#****##*#*##**#*##*# jf*#**##*##*#### «■##*#**#*#♦**#*##*#*} 
procedure YaxisClip(SpacinJf Location: real! Major: i n t e 3 e r i 

M a J 5 i z e t M 1 n s i z e : real)! 
{ } 

{ This procedure draws an Y-axis at any intersection point on the plotting } 

{ surface. Parameters are as follows: } 

{ SpacinS: The distance bet ween tic km arks on the axis. } 

{ Location: The X-value of the Y-axis. } 

{ Major: The number of tick marks to 3 e before drawing a major tick } 

{ mark. If MaJor = 5te very fifth tic km ark will be major. } 

{ MaJsize: The 1 e n 3 1 h > in world units* of the major tick marks. } 

{ M i n s i z e : The length » in world units* of the minor tick marks. } 

{ > 

var 

Y: real! {Y position of tick marks) 

SemiMaJsize: real! {half of major tick size) 

SemiMinsize: real! {half of minor tick size} 

Counter: inteser! {keeps track of when to do major ticks} 

b e 3 i n { b o d y o f p r o c e d u r e " Y a x i s C 1 i p " } 

SemiMa Jsize : =Ma Jsi ze#0.5 i {calculate half of major tick size} 

SemiMinsize : =Minsize*0. 5 i {calculate half of minor tick size} 

Counter:=Oi {start with a major tick} 
ClipDraw (Location » C 1 i p Yin in (Location tCl ipYmax ) i 

Y: =Round2(Cl i pYmin )SpacinS*Ma Jo r tDown ) i {round to next lower major} 

while Y<=ClipYmax do be3in {loop until Greater than Ymax} 

if C o u n t e r = then {should we do a major tick?} 

ClipDraw(Location-SemiMaJsize>YtLocation+SemiMaJsizetY) 
else 

CI i pDraw( Locat i on-SemiMins ize tY .Locat ion + SemiMinsize »Y) i 

Counte r : = ( Counte r+1 ) mod Major! {keep track of which size tick to do} 

Y: =Y+Spacin3 i • - {So to next tick position} 

end! {while) 

end! {procedure "YaxisClip"} 
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beSin {body of program "SinAxesZ"} 

sTaphics.init i {initialize the Sraphics system} 
display_init(CrtAddr tCont rolWord .Erro rReturn ) i {which output device?} 

if ErrorReturn=0 then beSin {output device initialization OK?} 

set_aspect(511 t389) i {use the whole screen} 

Charklidth:=2*0.04i {char width: HI of screen width} 

CharHei sht:=2*0.0B! {char height: HI of screen heiiht} 

set_char_size(CharWidth tCharHeisfht ) i {install character size} 

Text : = 'VOLTAGE VARIANCE' i {define text to be labelled} 

for X:=-3 to 3 do beSin {make "bold" label} 

move(-(strlen (Text )#CharWidth)/2+X#0.002 .0.9) i {center label} 

3text (Text ) ! {label the text} 
end i 

set_text_rot(Otl)i • {vertical labels} 

CharWidth: =2*0.025 i {char width: 2.5Z of screen width} 

CharHei*ht:=2*0.04i {char height: HI of screen heisht} 

set_char_size(Charklidth tCharHeiSht ) i {install char size} 

Text : = 'Voltage ' i {define text to be labelled} 
move(-0.97 t-(st rlen(Text )*CharWidth)/2) ! {start point of centered label} 

next (Text ) i {label the text} 

Text : = 'Time (seconds)'! {define text to be labelled} 

set_text_rot ( 1 tO) i {horizontal labels} 

move(-(strlen(Text )*CharWidth)/2 t-0.92) i {start point of centered label} 

next (Text ) i {label the text} 

set_ viewport (0. It 0. 99 tO. 12 >0.7) i {define subset of the screen} 
friove(-l t-1 ) i line(-lil)i line(ltl)! line(l.-l)i line(-li-l)! {frame} 

set_window(0 .100 tO. 16 .0. 18) i {scale the window for the data} 

ClipLimit (0 1 100 >Q> 1G »0. 18) i {define the soft clip limits} 

XaxisClipt 1 i0. 16 i5 (0.0008 tO.OOO.a),!,,. {draw the clipped X-axis} 

YaxisCl ip(0.0005 tO *5 »2 il ) ) *\ . {draw the clipped Y-axis} 
CharWidth : = 1 .3! \.-:,{char width: 1.3 user X units wide} 

CharHei Sht: =0.0008! {char heisht: .000B user Y units h i 3h > 

set_char_size(CharWidth iCharHei Jht ) ! {install character size} 

Text:=''i {erase previous definitions of strinsf} 

for X:=0 to 10 do beJin {eleven X labels} 

st rwrite(Text il .I tX#10:0) ! {convert number to string} 
(iiove(X*10-(strlen(Text)*CharWidth)/_2. 0.1593) i {center the label} 

Stext (Text) i {label the text} 
end! {for x} 

Y : =0 1 IB i {starting Y position for Y labels} 
repeat 

st rwrite(Text .1 >X »Y:6:4) i {convert number to string} 

move (-8 tY-0.0002) i {center the text vertically} 

stext(Text) ! {label the text} 

Y:=Y+0.0025i {next Y position} 

until Y > . 18 5 {terminating condition} 

for X:=l to 100 do be3in {100 points total} 

Y:=DataPaint (X) i {Jet a point from the function} 

if X=l then move(XtY) {move to the first point...} 

else 1 ine(X iY) i {...and draw to all the rest} 
end! {for X:=l to 100} 
end! {ErrorReturn=0?} 

sfraphics-termi {terminate the graphics package} 

end. {program "SinAxesZ"} 
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Notice that even though the clip limits were still active when the axis labels were written, the text 
(whose characters are merely a series of short lines) was not clipped. This is because the 
GTEXT procedure does not call the user-defined clipping routine CLIPDRAW, it calls the DGL 
procedures MOVE and LINE. Thus clipping on labelled text is only done at the hard clip 
limits — the edges of the plotting surface. 

This is the final version of our progressive example. It is the version which created the initial 
display at the beginning of the chapter. 
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Miscellaneous Graphics Concepts 



Chapter 



In the last chapter we discussed the more elementary graphics operations. In this chapter, we will 
discuss how to use some of those concepts more fluently, along with several other graphics 
operations. 

As in the last chapter, the demonstration programs in this chapter are stored for your convenience 
on the DGLPRG: disc which was shipped with this manual. You are encouraged to run these 
programs while you are reading the manual, as they will make understanding the concepts 
much easier. 



Setting the Display Limits 

It is possible to define a subarea of the entire display surface by calling the DGL procedure 
SET_DISPLAY_LIM. The area thus defined is the area in which a subarea can be specified by the 
SET-ASPECT procedure. 

The parameters passed to SET_DISPLAY_LIM are expressed in millimeters. An example call 
would be: 

5et_display_l iwUO.5 dOO »30 >99 tError) i 

This would set the logical limits of the display device to an area whose: 

• left edge is 40.5 millimeters from the physical left edge of the display device; 

• right edge is 100 millimeters from the physical left edge of the display device; 

• bottom edge is 30 millimeters from the physical bottom edge of the display device; 

• top edge is 99 millimeters from the physical bottom edge of the display device. 

If the integer variable Error comes back with a value of 0, no error occurred. An error occurs if 
either the minimum X or Y is greater than the maximum X or Y, or if the requested area is even 
partially outside the physical display limits. In either case, the call is ignored and the variable 
Error is returned non-zero. 
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More on Defining a Viewport 

In the last chapter it was mentioned that the SET_ VIEWPORT procedure defined a subset of the 
screen in which to plot. More precisely, the SETL VIEWPORT procedure defines a rectangular area 
into which the SET^WINDOW coordinates will be mapped. That is, the left edge of the window will 
be placed upon the left edge of the viewport, the right edge of the window will be placed upon the 
right edge of the viewport, and the same will happen with the bottom and the top edges. 

Assuming that the SET_ASPECT procedure has been invoked to make use of the entire screen, the 
screen has default edge values in the virtual display coordinates of 0.0 through 1.0 in the X 
direction, and 0.0 through 299/399 « 0.75 (for the Models 216, 220 and 226), 0.0 through 
389/511 = 0.76 (for the Models 217 and 236), or 0.0 through 767/1023 - 0.75 (for the Model 
237) in the Y direction. The length of a unit in virtual coordinates is defined as "the length of one of 
the longer edges of the plotting area." To recap the important characteristics of virtual coordinates: 

• The lower left of the plotting area is 0,0. 

• Virtual coordinates are isotropic; that is, one unit in the X direction is the same distance as one 
unit in the Y direction. 

• Virtual coordinates are limited to the range through 1. The maximum coordinate on one side 
is 1, and the maximum coordinate on the other side is less than or equal to 1. 

As we mentioned in the last chapter, it is trivial to determine the longer edge of the screen in virtual 
coordinates, but substantially more involved to calculate the length of the shorter edge in virtual 
coordinates. Since the height of the screen is shorter than the width of the screen, the longer edge is 
in the X direction; therefore, the maximum X in virtual coordinates is 1.0. If the screen had been 
higher than it is wide, the maximum Yin virtual coordinates would have been 1.0. Now for the 
interesting part. 

Remember that virtual coordinates are isotropic: X and Y units are the same length. This means that 
the length in virtual coordinate units of the shorter edges of the plotting surface can be determined 
from the aspect ratio of the plotting surface. The aspect ratio is the ratio of width to height of the 
plotting surface. Thus, if the plotting area is wider than it is high, the ratio would be greater than 
one. If the plotting area is higher than it is wide, the ratio would be less than one, and if the plotting 
area were perfectly square, the ratio would be 1. You can determine the aspect ratios of both the 
virtual display and the logical limits of the plotting surface by calling the INQ_WS procedure with 
operation selector 254: 

const 

AspectRatio= 254 i {mnemonic better than maiic number} 

type 

RatioTypes= ( V i r t u a 1 D i s p 1 a v > L o i i c a 1 L i m i t s ) i 

RatioT>-pe= array [Ratio-Types] of real! 

Mar 

Pac: packed array [1..1] of char! { \ These are the sundries } 

Iarrav. array [1..1] of inteieri { \ needed by the call to } 

Ratios: RatioTypei { / "ini_ws". } 

Error: integer! { / > 



i n q_w s (AspectRatiotO > i2 »Pac 1 1 a rrav (Ratios lError)! cr/if Error< >0 
then cr/if w r i t e 1 n ( 'E r ro r '»Error:Gt ' in determining aspect ratio.')! 
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The user can now use RatioCYi rtualDisplav ] and RatioCLosicalLiinits] to determine what 
values are used to set the aspect ratio. (For more information on the INQ_WS procedure, look 
up this procedure in Appendix B.) 

Usually, however, the user knows the aspect ratio because he explicitly set it at the beginning of the 
program, using the SET_ASPECT procedure. 

Using the value for the aspect ratio, we can derive a statement which is almost indispensible when 
writing a general-purpose statement for calling the SET_ VIEWPORT procedure. Assuming the 
aspect ratio is contained in a variable called AspectRatio: 

if AspectRatioM .0 then beJin 

MaxVi rtX: = 1.0 5 

MaxVirtY:=l/AspectRatio 
end 
else besin 

MaxVirtX: -AspectRatio i 

MaxVirtY:=1.0 
end i 

These statements define the maximum X and maximum Y in virtual coordinate units. This will 
work no matter what plotting device you are using. Now that we have HaxYirtX and 
MaxVirtY defined, we have complete control of the subset we want on the plotting surface. 
Suppose we want: 

• the left edge of the viewport to be 10% of the hard clip limit 1 width from the left edge, 

• the right edge of the viewport to be 1% of the hard clip limit width from the right edge, 

• the bottom edge of the viewport to be 15% of the hard clip limit height from the bottom, 
and 

• the top edge of the viewport to be 10% of the hard clip limit height from the top. 

We would specify: 

LeftEd5/e:=0.1#MaxUirtX; 

RishtEd Je:=0.99*MaxVi rtXi 

BottofrtEd<re:=0.15*MaxMirtYi 

TopEd<re:=0.9*MaxUirtYi 

SET_VIEWP0RT(LeftEd3e tRiShtEdse »BottotnEdse tTopEdSe) i 



1 Hard clip limits are those limits set by the SET_DISPLAY_LIM procedu 
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Calculating Window Limits 

In our progressive example in the last chapter, we were using the sometimes unrealistic practice of 
using constants in the SET_WINDOW procedure call. Often you don't know until the program is 
running what the values to be passed to SET_ WINDOW are. The X values which were used in the 
SET_WINDOW procedure call (0 and 100) came from the fact that there were 100 data points. The 
Y values (for this type of plot) must be determined either by you or by the computer itself. If you 
want the computer to determine the X or Y minimum and maximum, you could do it in the 
following manner. Assuming that the X values are in a real array called X: 

const 

MaxReal= 1 ,737693 1348623 1E308! 



Xmax : =-MaxReal I {Smaller than smallest possible value in array} 

for I:=l to N do {N is the number of elements in the array} 
if >([I]>Afnax then Xmax : =)<[ I] i 

A similar method can be used for figuring the minimum value of the X array: First, assign Xm i n 
to be +MaxReal. The reason this is done is to ensure that at least the first value in the array is 
used. Then, check through the array of X values, and if the value of any element is smaller than 
the current minimum, it becomes the new minimum. 

Of course, the minimum and maximum Y values can be found in the same manner. 
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Drawing a Window Frame 



The SET_VIEWPORT procedure specifies where in the logical display to put the plot — the 
subarea of the plotting surface in which to plot. This is the area which the SET_WINDOW 
procedure affects. 



PHYSICAL DISPLAY SURFACE 

LOGICAL DISPLAY SURFACE (SET_DISPLAY_LIM) 

VIEW SURFACE (SET_ASPECT) 
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Quite often, a frame is desired around the current window to set it apart from the labels outside 
the window, and so forth. If the window limits are known (or it is convenient to find out), you 
can just do a MOVE and four LINEs, as was done in the last chapter. The way it was done in the 
last chapter was to draw the frame after the SET„_VIEWPORT call, but before the 
SET_WINDOW call. Since we had not yet set our own window, the default window limits were 
- 1 to 1 in both directions. Therefore, we could say: 

maue(-lt-l)! 1 ine ( -1 1 1 ) t lined »l)i lined »-l)i line ( -1 t-1 ) i 

This is not always the case, however. If you do not know the current window limits, you can 
interrogate the system through the DGL procedure INQ_WS. The values returned from there 
can be used to draw the frame. The following lines of code demonstrate how to do this. First, 
the INQ_WS routine is accessed to determine the current window limits, and then a box is 
drawn around those limits. 
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const 

WindowLimi ts= 450! 
type 

L i rii i 1 r d e r = 

L i iii i t T y p e = 
ua r 

Pac: 

I a r r a y : 

Window: 

Error: 



{mnemonic better than masic number? 



(Xfriin i Xmax t Ym in tYmax ) i 
array ELimitOrder] of reali 

packed array [ 1 . . 1 ] of chari { 

array [ 1 • . 1 ] of integer! { 

L i m i t T y p e i { 

i n t e i e r i { 



\ These are the sundries > 

\ needed by the call to } 

/ the DGL procedure } 

/ " ini-ws " i } 



to 



inq_us( WindowLimits i0 i0 i4 »Pac tlar ray (Window tError) i 

if E r r o r = then b e i i n 

in o v e ( W i n d o w [ Km in] » W i n d o w [ Y m i n ] ) i {mo u e 

1 i n e ( W i n d o w [ Km i n ] i W i n d o u [ Y m a x ] ) i { d raw 

1 i n e ( W i n d o w [ Km a x ] » W i n d o w [ Y m a x ] ) i { d raw 

line (WindowtXdiax] iWindowCYmin] ) i {d raw to 

line ( WindowCXmin ] tWindowEYmin] ) i { d raw to 

end { E r r o r = ? } 

else writeln ( 'Error 'iError:Oi' occurred in "Frame"'!! 



lower left corner} 

to upper left corner} 

to upper risht corner} 

lower risht corner} 

lower left corner} 
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Turning Displays On and Off 

If you ran the last chapter's programs, and do not have a bit-mapped display, you probably noticed 
that the graphics screen was turned on automatically to show you what was being plotted, but the 
alpha screen was not turned off at the same time. If you do have a bit-mapped display (e.g., Model 
237), both alpha and graphics occupy the same screen; the screen is either on or it isn't. 

In the case of nonbit-mapped displays, as soon as the program ended, the Main Command Level 
prompt appeared at the top of the screen, obstructing the view of the top portion of the graphics 
image. Th is can be mildly annoying as it is, having to turn off the alpha raster by pressing the 
( GRAPHICS ) key, but it rapidly gets more annoying if your program generates printed output and 
plotted output which are not intended to be viewed simultaneously. 

What is needed is a way to turn either the alpha raster or the graphics raster on or off at will. There is 
a way to do this, by calling the OUTPUT_ESC procedure with operation selectors 1050 or 1051. 
Or, if you prefer a more readable method, the you could write a procedure to do the operations. 
Assume that there has been an enumerated type declared: 

type 

DisplayStates= (Off .On)! 

Here is an example section of code to show you how to turn the displays on or off. The 
parameter used is assumed to be of the type declared above. 

{***###*##***#****##*******##**#***#**#****#****#*#*♦*****#****#*******#*****} 

procedure Alpha(State: boolean)! 

{ } 

{ This procedure turns the alpha raster on or off (true=on» false=off). > 

{ } 

const 

AlphaRaster= 1051! {mnemonic better than masic number} 

var 

AlphaOn: array Cl.,1] of integer! { \ This is all stuff that > 

R a r r a y : array [1..1] of real! { is needed by the } 

Error: integer! { / "outPUt_esc" procedure. } 

b e $ i n {procedure "Alpha"} 

if State=0n then Al phaOnE 1 1 : = 1 {"On" is a boolean constant: true} 

else AlphaOnCil :=0! 

outPut_esc(AlPhaRastertliOiAlphaOn»Rarray tError) i 

if ErrorOO then wri teln ( 'Erro r '»Error:0t' in procedure "Alpha".')! 

end! {procedure "Alpha"} 

Similar code could be generated for turning the graphics display on and off. The references to 
"Alpha" should be changed to "Graphics" just to avoid confusion, and the operation selector 
should be changed to 1050. 
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Conversion Between Coordinate Systems 

Many times, you'll probably want the ability to convert back and forth between virtual display 
coordinates and world coordinates. One of the most-used areas where this is desired is where you 
want to specify some parameter in units relative to the display device, not the graphical model 
currently in use. For example, it is often desirable to specify character sizes as, say, 6% of the screen 
height. Or, you want to draw an X axis whose tick marks are 1% of the screen height. These, and 
other places, the values could be specified in world coordinates, but it is an inconvenience to have 
to specify a constant-sized line or character in units which are varying all over the place. For 
example, if you have a general-purpose plotting routine which gets it data from an external source, 
it doesn't know until it gets the data what the window limits are to be. It is only after the window 
limits are known that the character sizes would be specified. 

If we could specify these things in virtual display coordinates, we could have the computer do the 
dirty work of converting from virtual coordinates to whatever the current world coordinates are. 

To convert from one coordinate system to another, there are three steps involved: 

1. Determine, as a fraction, how far into the old system the point of interest is. For example, if 
the old system goes from 10 to 20 in X (calculations for Y proceed with identical steps), and 
you want to find out how far 13 is into that range, you take: 

01 dF rac t i on : = ( K-Dl dXmin ) / ( 01 dXwaK-01 dXmin ) ! 
or, using our numbers, 

1 d F r a c 1 1 o ri : = ( 1 3 - 1 ) / < 2 - 1 ) i 
This evaluates to 0.3, and, sure enough, 13 is three tenths of the way between 10 and 20. 

2. Take the fraction found in the previous step, and go the same distance into the new 
coordinate system. For example, say our new coordinate system goes from 300 to 400. 
To go into this new range the same fraction of the way, you take: 

N e w D i s t a n c e : = D 1 d F r a c t i o n * ( N e w X m a x - N e w K m i n ) i 

Again, putting our numbers into the expression, 

NewDi stance: =0 . 3* ( 400-300 ) i 

This evalutes to 30, and, sure enough, we have to go thirty units into the new coordinate 
system. 

3. To "go into" the new coordinate system means that we have to add the new coordinate 
system's minimum value to the distance into the new system so that the distance into the 
new system is relative to the same starting point as the system itself. 

N e w P o i ri t : = N e w D i s t a ri c e + N e w >! in i n i 
or, in our units, 

NewPoirit:=30+300i 
And 330 is the desired point in the new coordinate system. 
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The "old" coordinate system and the "new" coordinate system can have any maxima and minima 
(you are not restricted to converting between the world coordinate system and the virtual coordin- 
ate system), and the point of interest may be inside the range, one of the end points, or outside the 
range; it make no difference to the mathematics. 

Following are two routines which convert between virtual display coordinates and world coordin- 
ates. 

procedure Conve rtVi rtualToWo rid (Vi rtualX i UirtualY: real! 

uar WorldX > Wa rldY: real ) i 

{ } 

{ This routine converts any point in virtual coordinates* whether on the } 
{ plottins surface or noti into world coordinates. > 



•> 



const 

WindowLimits= 450! {mnemonic better than masic number} 
MiewportLimits= 451 i {...here* too. } 

type 

LimitOrder= !Xmin» Xmax t Ymint Ymax)i 
LiniitTvpe= array CLimi tOrde r] of real! 

var 

Pac: pacKed array [1..1] of char! { \ These are the sundries } 

Iarrav: array CI, ,13 of inteSeri { \ needed by the call to } 
Window: LimitTypei i > the DGL procedure > 

Viewport: LimitTypei { / "inq.ws". } 

Error: inteSeri { / > 

beSin {body of procedure "Conve rtUi rtualToWo rid" } 

inq_ws (WindowLimits t0 t0 »4 iPac tlarray (Window (Error) ! 

if ErrorOO then wri teln ( 'Erro r SErrorsOf 

' in determining window limits in "Conve rU'i rtualToWo rid" ,') ! 

inq_ws(MiewportLimitst0»0t4iPactIarraytUiewporttError)i 

if ErrorOO then wri teln ( 'Erro r '»Error:Oi 

' in determining viewport limits in "Conve rU'i rtualToWo rid" ,') i 

WorldX:=(Ui rtualX-Viewpo rt [Xmin] ) { \ Calculate X distance from left,,. } 
/(ViewporUXmaxl-UiewporUXmin] ) { \ ,, .convert to a fraction.,. > 
*(Window[Xmax]-Window[Xmin] ) { / , . . So same fraction into world,.. } 
+Window[Xmin] i { / ♦ ..add Xmin to Set value. } 

WorldY:=(Ui rtualY-UiewportCYmin] ) { \ Calculate Y distance from bottom..,} 
/(UiewportCYmaxl-l'iewportCYmin] ) { \ ,. .convert to a fraction,.. } 
*(Window[Ymax]-Window[Ymin]) { / . . . So same fraction into world,.. } 
+Window[Ymin] i { / ...add Ymin to Set value. } 

end! {procedure "Conve rU'i rtualToWo rid" } 
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procedure C o n v e r t W o r 1 d T o U i r t u a 1 ( U o r 1 d X > W o r 1 d Y : real! 

yar U i r t u a 1 X > VirtualY: r e a 1 ) i 

{ } 

■C This routine converts any point in world coordinates* whether on the } 
{ plotting surface or not* in to virtual coordinates* } 



const 

W i n d o w L i m i t s = 

y i e w p o r t L i mi t 

t V P p 
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More on Labelling a Plot 

To help you get a better grasp of the concept of labelling, there will be four small sections, each 
of which demonstrates something more about the concept of labelling a graph. 

The Character Cell 

The first program deals with the relationship between the size of the character, per se, and the 
size of the character cell — that rectangle in which the character is placed. This program is on 
file "CharCell" on the DGLPRG: disc. 



Current 

Pen 
Position 




proSram CharCel 1 (output ) i 
import dsl_l ib » dsl-inq i 
const 

Crt= 3i 

Control= 5 

type 

Lo rsType= 1 . .9 i 

Str255= st rinS[2551 5 

war 

Error: integer! 

I , X i Y : integer! 



{program name same as file name} 
{access the necessary procedures} 

{device address of Graphics raster} 
{device control word! i Snored for CRT} 

{the valid values to pass the "LorS"} 
{for the procedure "Glabel"} 

{display_init return variable! = ok} 
{loop control variables} 
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$pa3e$ 

b e S i n 

Graphic 

display 

if Erro 

set_a 

m o u e ( 

s e t _ w 

set_c 

m o u e ( 

Stent 

for X 

for 

m 

1 

iii 

1 

e n d 

end! 

for I 

III M 

end! 

set_c 

iii o V e ( 

Stext 

e n d i { 

Sraphic 

end. { 



{*#******#♦####♦#*####*###****##*#♦#***#*##*#*#♦###♦***#***•*#**•»•##*##} 

{body of pros ram "CharCell"} 
{initialize Graphics library} 
rt (Control (Error) i {initialize CRT} 

n b e S i n {if no error occurred...} 

11(389)! {use the whole screen} 

1 i n e ( - 1 ( 1 ) ! 1 i n e ( I 1 1 ) i 1 i n e ( 1 t - 1 ) i 1 i n e ( - 1 , - 1 ) i 
Z (38 (-7.5(22,5) i {define appropriate window} 

e(l (2) i { \ } 



l n 1 1 1 
n i t ( C 
the 
ect (5 
(-1) ; 
d o w ( - 
r_si z 
21) i 
Size 
to 
: = t 



< - U 

< + 

< + 
<-0 



{for 
for x 
to 
1*9 (0 



of Char 
36 do b 
o 15 do 
. 1 (y + 0. 
.1 (Y-0. 
.1 (Y+0. 
.1 (Y-0. 
y} 
} 

3 do be 
) i line 



Sin 



act 

eSi 
be 
1) 
1) 
1) 
1) 



Sin 
(I*9d5) 



Charade r Cell': 
{ \ 
{ \ 
{ \ 
{ N 

{ 

{ / 
{ / 
{ / 



Do main label. 



Draw the four 9x15 
character cells. Make 
a f rame a round each i 
and a n X at e u e r y 
point. 



har_s i ze ( 9 (15) i 

1 (4) ; 

( 'Gb/i ') i 

Error=0?} 

s_te rm i 

pros ram "CharCell"} 



{draw a fraiiie around each char cell} 
line(I*9 + 9 (15) i line ( 1*3 + 9 >0) i 1 ine ( 1*9 (0 ) i 

{bis characters} 
{So to startinS position} 
{label some characters} 
{end of conditional code} 
{terminate Sraphics library} 
{end of proSraiii} 



As the diagram shows, a character is drawn inside a rectangle, with some space on all four sides. 
Both the rectangle's width and height are specified by the values passed to the DGL procedure 
SET_CHAR_SIZE, and are measured in world coordinates. This rectangle is subdivided into a 
grid of 9 wide by 15 high. Characters are drawn in this framework. 

The current pen position — that position moved to before writing a label — is one unit to the right 
and four units up from the lower left-hand corner of the character cell. For example, when 
labelling a lower-case "b", the bottom of the longer vertical line would end up at the point 
moved to before labelling. Also note that there doesn't have to be any part of the character at 
the current pen position, as in the upper-case "G" in the plot. For characters which have 
descenders (lines which go below the "baseline" of the character cell), the current position is 
still relative to the lower left corner of the character cell, not the character. 

Of course, the little x s in the plot above are not drawn when you label a string of text; they are 
there solely to show the position of the characters within the character cell. 



The DGL procedure SET_CHAR_SIZE specifies the height of the character cell, not the charac- 
ter itself. 
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Setting Character Size 

In a previous section, we discussed translation of points between coordinate systems. And as it 
was mentioned before, often it is desirable to be able to specify character sizes in screen- 
dependent units, rather than model-dependent units. 

As we saw in the last chapter, there is a DGL procedure called SET_CHAR_SIZE which sets an 
attribute of all subsequent characters, namely the width and height of the character cells. When 
using SET_CHAR_SIZE, the characters are scaled using the same scaling as the objects drawn. 

In other cases, however, the text size should be related to the display device, rather than the 
user's graphics model. For example, when a general-purpose display routine gets data from a 
file, or some other source, it probably does not know until the data is actually received what the 
range of the data is. Thus, the window limits are calculated in the program. To get the title of the 
plot of a consistent size, you would have to convert the actual size of the label relative to the 
display device to the same size expressed in world coordinates so they can be sent to 
SET_CHAR_SIZE. 

The following piece of code shows you how to define character cell height in virtual coordin- 
ates, and the width is defined as a fraction of the height; thus, it is an aspect ratio. The reason 
that the aspect ratio is desired, rather than the character cell width, is that if you want characters 
with a constant shape, you would just have to take your first parameter, and multiply it by a 
constant. Thus, in effect, you have just specified the aspect ratio. 

The values passed into the routine are converted into character cell width and character cell 
height in world coordinates, which the DGL procedure SET_CHAR_SIZE needs. 
SET_CHAR_SIZE is called and the converted values are passed to it. The converted values are 
retrievable by invoking the INQ_WS procedure with operation selector 250. The character cell 
height and width are needed by another piece of code (which actually does the labelling) 
covered shortly. 

Here is how to specify character size in virtual coordinates, with an aspect ratio, and convert it 
into parameters appropriate for the SET_CHAR_SIZE routine. Notice that the conversion 
routine covered a few sections back is used: 



war 
Width: 
KG, Y0: 
XI , Yl: 



real i 
real ! 
real 5 



{temporary spot for width} 
{ > (virtual) in w o r 1 d } 
{Id ( vi rtual ) in world} 



ConuertVi rtualToWo rid (0 »0 iXO »Y0) 5 {convert OiO in virtual to world} 
Converts rtualToWo rid ( 1 tl tXl » Yl ) i {convert 1 » 1 in virtual to world} 
Hei Sht:=Hei3ht*(Yl-Y0) i {convert heiiht in virtual to world} 

Width : =Hei Jht*AspectRat io*(Xi-X0) /( Y1-Y0) i {convert width in virtual to world} 
set_char_size(Width tHeiSht) i {invoke the parameters} 
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Here is the graphical output of a program which demonstrates the use of the procedure 
CHARSIZE, and then the program itself: 




p ro 3 ram 
1 in p o r t 
canst 
Crt = 
C o n t r 

Error 
I i J: 
St rn3 
$ i n o 1 u d 
$pa3e$ 
p r o c e d u 
{ 

{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{- 



C s i z e P r o 3 ( o u t p u t ) i 
d 3 1 _ 1 i b i d 3 1 _ i n i i 

3i 

o i = o ; 

: i n t e 3 e r ! 

integer i 

: s t r i n 3 1 1 ] i 

e 'DGLPRG:ConvMtoW'$ 
{##*******♦****##****#*****#*****#**#*##***♦**#*##**#**###*#### 
re CharSize(Hei 3ht t AspectRatio: real)! 



{Set Graphics routines} 

{address of internal CRT} 
{device control! for CRT} 

{variable for initialization o u 
{utility variables} 
{temporary holding place for st 
{ u i r t u a 1 - 1 o - w o r 1 d conversion) 



Th 
Hei 3 
in a 
aspe 
in a y 
of t 
proc 
Glab 



is procedure defines character cell size and the puts the Width 
ht values into 3 1 o b a 1 variables for later use. The arguments pa 
re the heisht of the character cell in VIRTUAL coordinates » and 
ct ratio of the character cell. The values for the window limit 
be any th in3 i they are taken into account and do not affect the s 
he characters! since they are defined in virtual coordinates. T 
e d u r e » a 1 o n 3 with L o r 3 and L d i r i define 3 1 o b a 1 variables for use 
el. 



t come } 

r i n 3 s } 

*#****} 

} 

and } 
s s e d } 
the } 
s } 
rze } 
his } 
b y } 
} 
- } 
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uar 

Width: real! {temporary spot for width} 

XO i YO: real! -C » (virtual) in world} 

XI i Yl: real! {id (virtual) in world} 

beSin {body of procedure "CharSize"} 

Conve rtMi rtualToWo rid (0 i0 >X0 iYO) i {convert 0)0 in virtual to world} 

ConvertUi rtualToWo rld( 1 d iXl iYl ) i {convert id in virtual to world} 

Heisht : =Hei 3ht*( Y1-Y0) t {convert height in virtual to world} 
Width :=HeiSht*AspectRatio*(Xl-XO) / (Y1-Y0) i {convert width in virtual to world} 

set_char_size(Width (Heisht) ! {invoke the parameters} 

end! {procedure "CharSize"} 
$pa*e$ {#*##♦##*#**#*###**#**#*#*#*#****#*#*****************#*#*****♦**#****} 

besin {body of program "Csi zePros"' } 

3raphics_init i {initialize the Sraphics system} 

display_init (Crt (Control tError) i {which output device?} 

if Error=0 then be J in {output device initialization OK?} 

set_aspect (51 1 i3B9) i {use the whole screen} 

set_window( 1 tZ dOO (0) i {scale the window for the data} 

for I:=l to G do beSin {six different character sizes} 

CharSize( I* 1*0 • 1 tO.G) i {install character size} 

move(ld*I*I*0.4+I)i {move to a appropriate place} 

st rwrite(StrnS d »J d#I :0) i {convert number to strinS} 

Stext (St rn3+"X' ) i {label the strinS} 
end! {for i } 
end! {Error=0?} 

Sraphics_te rmi {terminate the Sraphics pacKaie} 

end. {proSram "CsizeProS"} 

The FOR loop writes lines of text on the screen with different character sizes. Incidentally, notice 
also the SET_WINDOW procedure. It specifies a Ymin larger than the Ymax. This causes the top of 
the screen to have a lesser Y-value than the bottom. This is perfectly legal. 

Again, character cell height, when using the algorithm above, is measured in virtual coordinates, 
and the definition of aspect ratio for a character is identical to the definition of aspect ratio for the 
hard clip limits mentioned earlier: the width divided by the height. Thus, if you want short, fat 
letters, use an aspect ratio of 1.5 or larger. If you want tall, skinny letters, use an aspect ratio less 
than about 0.5. If you call the above routine: 

CharSize (0.03 tO.G) i Cell 3% virtual coordinate units high, aspect ratio 0.6. 

CharSize (0, OS t0. 3) i Cell 6% virtual coordinate units high, aspect ratio 0.3 (tall 

and skinny). 
CharSize (0. l »2) i Cell 10% virtual coordinate units high, aspect ratio 2 (short 

and fat). 
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Setting the Label's Direction 

We saw in the last chapter that label could be rotated by using the DGL procedure 
SET_TEXT_ROT, which specifies angles in a run/rise format. Many people, however, deal with 
angles more easily than run/rise ratios. Again, the angular value is converted to run/rise numbers by 
taking the cosine and sine of the angle, respectively: 

set_text_rot(cos(AnSle) » sin (Anile) ) \ 

You could define a procedure for which the angle could be specified in degrees, radians, or 
grades 1 , depending on the value of the units parameter, which, being an enumerated type, can 
have the value DEG (degrees), RAD (radians), or GRAD (grades): 

An3leType= (Des > Rad > Grad ) i 

The value passed in, in the unit of measure defined by the units parameter, must be converted 
to radians. Radians are the only units understood by the trigonometric functions in Pascal. 
Conversion is accomplished by a simple division. (The division could be changed to a multiply 
by the reciprocal. This would increase the speed with little loss of understandability.) 

const 

De3_per_rad= 57,2957795131! {lBO/pi: for converting decrees to radians) 
Grad_per_rad= G3 ,6619772368 i {200/pi: for converting irads to radians} 



case Units of 

Dei: Di rect i on : =Di red i on/De S_pe r_rad i {decrees to radians} 

Rad: i {correct units already} 

Grad: Di rect ion : =Di rect.ion/G rad_pe r_ rad i {Srads to radians} 

end! {case} 

set_text_rot ( cos (CharTheta) tsin (CharTheta) ) i {invoke the new text direction} 

For example, assuming you call the routine LabelDi rection, and that there is a constant called 
"Pi" which has a value of 3.1415926535897: 

L a b e 1 D i r e c t i o n ( o , D e s ) i Writes label horizontally to the right. 

LabelDi rect ion (Pi 12 iRAD) i Writes label vertically, ascending. 

LabelDi rect ion ( 14 »G rad) i Writes label ascending a gentle slope, up and right. 

L a b e 1 D i r e c t i o n ( P i t R a d ) i Writes label upside down. 

LabelDi rect ion (270 (DEG) i Writes label vertically, descending. 



1 Ony revolution - 360' - 2-n radians - 400 giades. 



Miscellaneous Graphics Concepts 49 



Here is a plot demonstrating the specification of a label's direction by a genuine angle: 
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program LdirPros? 
import d 3 1 _ 1 i b i 
const 

Crt = 

Control 1 
type 

AngType= 
y a r 

Error: 

I iJ: 

Strns: 

CharThet a : 



3i 
Oi 



{pro 3 ram name same as file name} 
{access the necessary procedures} 

{device address of graphics raster} 
{device control word! ignored for CRT} 



;Deg»RadiGrad)i {used by procedure LabelDirection} 



integer! {display_ini t return variable! 

integer! {loop control variable and spar 

string[50]i {string to label} 

real! {global variable for label dire 



$pa3e$ {*#****##*#*#**#***********#*********************************** 
procedure LabelDi rect ion (Di rect ion : real! Units: AnsT/pe)? 

i 



= oK} 
e} 

c t i o n } 
#**###} 



{ T 
{ Gla 
{ di r 
{ 

const 
Des_ 
Grad 

begin 

case U 
Deg: 
Rad: 
Grad 

end! 

CharTh 

set.te 

e ri d ! 



h i 5 procedure is used in conjunction with LabelOri gin » CharSize a 
belt It sets the labelling direction to be usedt and places the 
ection into a global variable so Glabel can use i t ♦ 



nd } 
} 

} 

} 



pe r_rad 
_pe r_ra 

nits of 
Di rec 
5 
: Direc 
{ case } 
eta:=Di 
xt_rot ( 



= 57.2957795131! { 180/ pi : for converting degrees to radians} 
d= G3.BB197723S8! {200/pi: for converting srads to radians} 

{procedure "LabelDirection"} 

tion : =Di rect ion/Deg_per_rad ! {degrees to radians} 

{correct units already} 
tion :=Di rect i on/Grad_pe r.rad ! {Srads to radians} 

rection! {put into a global variable} 

cos(CharTheta) tsin (CharTheta) ) i {invoke the new text direction} 

{procedure "LabelDirection"} 
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$pa3e$ {*#+***#♦***#**#♦***##**#*###♦♦###*#♦**♦##♦##########*##*##*##*###*#*} 

begin {body of pro 3 ram "LdirProg"} 

sraphics_initi {initialize graphics library} 

displav.iniUCrt .Control .Error) i {initialize CRT} 

if E r r o r = then b e 3 i n {if no error occurred.,.} 

set_aspect(511 »389) ! {use the whole screen} 

s e t _ w i n d o w ( - 1 1 1 i - 1 » 1 ) I {define appropriate window} 

set_char_size (0.05 »0,08) i {set the size for the characters} 

for I:=0 to 35 do besin {euery ten deSrees} 

Strn3:=''; {empty the strin3} 

strwritet strng .1 .J .1*10:0) ! {convert the loop variable to degrees} 

Strn3: = ' '+Strn3+' deg'i {attach prefix and suffix} 

LabelDi rectiont 1*10 .Deg) i {specify label direction} 

id o Li e ( 1 ) ! {itioue to the center of the screen} 

3text(Strn3) i {label the text} 
end! {for I } 
end! {Error=0?} 

3raphic5_te rin i {terminate graphics library} 

end. {program "LdirProg"} 

When a character size is selected whether through the DGL routine SET_CHAR_SIZE or 
through the utility routine CHARSIZE, the width and height associated with a character cell are 
defined for an unrotated character cell. Thus, when a character is rotated, its shape does not 
change, even though its width (measured along the X axis) and height (measured along the Y 
axis) are not the same directions as the display device's axes. 

In the preceding plot, you may have noticed that the hyphens do not precisely meet in the 
middle. This brings up another point: when you move to a point and then write a label, which 
part of the label ends up at that point? In other words, how is the label justified? 

Justifying Labels 

On a label written by the GTEXT procedure, the label is always justified at the lower left-hand 
corner of the label. Unfortunately, this does not lend itself to centering text, which is often a 
very desirable thing. It would be nice if we could programmatically select how the label should 
be justified. For the progressive example we were working on in the last chapter, the main title 
needed to be as far toward the top of the graph as it can be, and at the same time, centered 
horizontally. The following addresses just this kind of need. 

For horizontal centering, there are three possible choices: left-justified, centered, and right- 
justified. For vertical centering, there are also three choices: bottom-justified, centered, and 
top-justified. Thus, there are nine possible combinations of values which can be sent to the 
LABELJUSTIFY routine: left, centered, and right for the X direction, and for each of these, 
bottom, centered, and top for the Y direction. 

Assume there are two enumerated types declared: 

HJustif yType= (Lef t .HCente red »Ri 3ht ) ! 
M J u s t i f y T y p e = ( B o 1 1 o m . UC e n t e r e d . T o p ) i 
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Label justification is relative to the label, not the plotting surface, and it is independent of the 
current label direction. For example, if you have specified: 

• upper left label justification, 

• and label direction of 90°, 

• a move to point (6,8), 

and then write the label, it is written going straight up, not horizontally: 
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Therefore, it is the upper left corner of the label which is at point 6,8 relative to the rotated label. 
However, it is the lower left corner of the label which is at 6,8 relative to the plotting device 
because the label has been rotated. 

Note that two things are obtained by calls to the INQ_WS procedure: the current pen position, 
and the current character size (in world coordinates). 

If you are going to use the label justification scheme just described, you will need to write your 
own labelling routine which takes into account the current justification values. Label justifica- 
tion gets a little tricky when dealing with user-definable label direction, as you can see in the 
section of code below. 

The following three global variables are assumed to exist: 

• trustification: The currently-defined horizontal justification. This is of the previously- 
mentioned type HJustifyType. 

• gjustif ication: The currently-defined vertical justification. This is of the previously- 
mentioned type HJustifyType. 

• CharTheta: This real variable is the current label direction, expressed in radians. Weneedto 
keep this in a global variable because there is no operation selector we can send to 
INQ_WS to determine it. 

const 

CharSizeCode= 250! {mnemonic better than maSic number} 

CurrentPosition= 259 5 {ditto} 

type 

P o s i t i o n s = ( X i Y ) ! 

Posi tionType= array [Positions] of real! 

CharAttributes= (Width »Hei<fhth) i 

CharAtt rType= array CCharAtt ributes] of real! 
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var 
Chars: 
Chars i ze : 
L e n (Height: 
Dx ,Dy: 
R (Theta: 
Pac: 
I a r r a y : 
Position: 
Error: 



integer! 

CharAttrTypei 

real i 

real ! 

real i 

p a c K e d array 

array [ i . . 1 ] 

P o 5 i t i o ri T y p e i 

integer! 



{lensth and heisht of character strin3} 

{for rectanSular-to-polar conversion} 

[l.il] of char! { \ These are the } 

o f i n t e 3 e r i { \ sundry items } 

{ / needed for the } 

{ / call to "inq_ws"} 



inq 
if E 
Char 
Len : 
Heis 
Dx: = 
Dy: = 
R:=s 
Thet 
Thet 
Dx: = 
Dy: = 
i n q _ 
if E 
mo 
st 
e n d 
else 



ws(Cha 
rro r<> 
s : =st r 
=Chars 
ht:=Ch 
Len#(- 
Heisht 
qrt (Dx 
a: =Ata 
a:=The 
R*cos ( 
R*sin ( 
w s ( C u r 
r r o r = 
v e ( P o s 
ex t ( te 
{Er ro 
write 



rSizeCod 

then w 

1 e n ( t e x t 
izeCWidt 
a rs i zeEH 

rd (HJus 
#(-ord(U 
#Dx+Dv*D 
n(Dv »Dx) 
ta+CharT 
Theta) i 
Theta) ! 
rentPosi 

then be 
i t i o n C X ] 
xt ) i 
r = 0?} 

1 n ( ' E r r o 



(O(Z(Pac(Iarray(Charsize(Error)i {Set pen position} 
;eln( 'Error' tErro r:0 > ' in "Glabel".'); 



e tO 

rit 

) i 

h]*(7*Chars+2*(Chars-l ) )/9i {length minus inter-char Sap} 

ei S 

tif 

Jus 

y) ; 



fhth]*8/15! 
'ication) /2) i 
itification)/2) i 



{ h e i 3 h t minus inter-line Sap} 



h e t a ! 



t i o 
Sin 
+Dx 



{ \ Convert to polar coordinates so } 

{/ rotation is easy. } 
{add the LabelDirection a n 3 1 e } 

{ \ Convert R and the new Theta back } 

{ / to rectanSular ooodinates. } 
n »0»0(2(PactIarray (Position (Error) i {Set pen position} 

(Pos i t ion [ Y]+Dv ) ! {move to the new start in 3 point} 



r' (Error:0 >' in "Glabel" . ' ) i 



And here is a program using all the label-related algorithms mentioned above. 



TOP 



BOTTOM 



LEFT 



HCENTERED 



RIGHT 
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X TEST TE£T TEST X 
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program JustProg( output ) i 

import d<rl_libfdsl_inq; {get graphics routines} 

const 

CrtAddr= 3! {address of internal CRT) 

Cont rolWord= Oi {device control! for CRT} 

type 

HJustif yType= (Left tHCente red »Ri ght ) ! {horizontal Justification} 

YJustif yType= (Bo ttom (VCente red (Top) ! {vertical Justification} 

AnSType= (Deg (Rad (Grad ) ! {used by procedure "LabelDi rect ion" } 

Btr255= string[255] i {for the procedure "Glabel"} 

war 

ErrorReturn: integer! {variable for initialisation outcome} 

HJust: HJustif yType ! {horizontal Justification variable} 

VJust: VJust if '/Type i {vertical Justification variable} 

I: integer! {for the strw rite statement} 

Strng: str255! {labelled text holder} 

CharWidth (CharHei ght: real! { \ These are global variables } 

HJustif ication: HJust if '/Type ! { \ needed by the Label Jus ti fy/ } 

UJustif icat ion: VJust if yT'/pe ! { / LabelDi rect ion/CharSize } 

CharTheta: real! { / series of procedures. } 

$include 'DGLPRG:ConuVtoW'$ {needed by procedure "CharSize"} 



Procedures Frame, CharSize, LabelDi rection, Label Just if •/, 
Atan, and Glabel go here. 



begin {body of program "JustProg"} 

graphics_init ! {initialize the graphics system} 
displav_init(CrtAddr tControlWo rd »ErrorReturn) i {which output device?} 

if Erro rReturn=0 then begin {output device initialization OK?} 

set_aspect (51 1 »3B9) i {use the whole screen} 

set_window( -1 (2.5 (-0.5 (2.5) ! {scale the window for the data} 

Frame! {draw a frame around the screen} 

CharSize (0.03 »0.B) i {width=3Z screen width! asp. ratio=.S} 

LabelDi rectiontO (Dei) ! {horizontal labels} 
{ = = = = = Labels at the top = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = } 

LabelJustif y (HCente red (Top) ! {label's reference point: tap middle} 

for HJust:=Left to Right do begin {horizontal loop} 

StrnS:=''! {null the string so nothing left over} 

st rwritefStrnS tl »I (HJust ) ! {convert enumerated type to string} 

move (o rd(HJust ) i2,Q) i {move to the appropriate place} 

Glabel (St mg) ! {label the string} 
end! {for HJust} 
{===== Labels on the left edge ============================================} 

LabelJustif y(Left tMCentered) ! {label's reference point: left middle} 

for VJust:=Top down to Bottom do begin {vertical loop} 

Strng:=''i {null the string so nothing left over} 

st rwrite (St rng (1 (I (MJust ) ! {convert enumerated type to string} 

move( -0.9 (ord (VJust )) i {move to the appropriate place} 

Glabel (St rng) i {label the string} 
end! {for VJust} 
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{===== Labels ("TEST") with different Justifications ======================} 

CharSize(0.0G tO.G) i {characters a bit biiSer} 

for HJu5t:=Left to RiSht do beam {horizontal loop} 

for U Just := Top down to Bottom do be Sin {uertical loop} 

L a b e 1J u s t i f y ( H J u s t > U J u s t ) ! {set, label justification} 

inoue(ord(HJust)+0, 03 lordCJJust 1+0.03) i { \ } 

line(ord(HJust )-0,03 iord( l Jjust )-0.03) i { \ Make the "x" at } 

iiioue ( o rd ( H Just ) -0 .03 io rd ( U Just )+0.03) i { / the appropriate } 

line(o rd(HJust )+0.03 to rd ( Just ) -0.03) i { / place, } 

m o i.i e ( o r d ( H J u s t ) i o r d ( J u s t ) ) i { m o u e to label's starting position} 

GlabeK 'TEST') i {label the text} 

end! {for U J u s t } 
end! {for H J u s t } 
end! {ErrorReturn=0?} 

3 raph i c s_t e nil i {terminate the Graphics packaie} 

end. {pro 3 ram " Just Pro i" } 

The xs indicate where the pen was moved to before labelling the word "TEST". What this 
diagram means is that, for example, if Lab el Justify (Left (Bottom) is in effect, and you move to 
4,5 to write a label, the lower left of that label would be at 4,5. This automatically compensates 
for the character size, label direction, and label length. It makes no difference whether there is 
an odd or even number of characters in the label. If Label Justify (Cente r tTop) had been in 
effect, and you had moved to 4,5, the center of the top edge of the label would be at 4,5. You 
can readily see how useful this concept is in centering labels, both horizontally and vertically. 
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Monochromatic CRT Drawing Modes 

On a monochromatic CRT, there are three different drawing modes available 1 : 

• Drawing dominant lines. This is the most obvious drawing mode; pixels are turned on. It is 
the mode the graphics package is in by default. White lines are drawn on a dark back- 
ground, and dark lines are drawn on a white background. 

• Erasing lines. In this mode, pixels are turned off. If a line is erased on a background which 
is already dark, there is no effect. This is the method for making sure a line is gone after it 
may or may not have been drawn. 

• Complementing lines. When this type of line is drawn, pixels which are on are turned off, 
and pixels which are off are turned on. This is for drawing something which will be visible 
no matter what the background is; e.g., a graphics cursor. 

The drawing modes are selected by calling the OUTPUT_ESC procedure. This DGL procedure 
allows you to control device-dependencies of output devices. The operation selector which 
controls drawing modes is 1052. Following is an algorithm which takes care of all the necessary 
variables, declarations, and all-around "housekeeping" involved in selecting a drawing mode. 
This implementation of the algorithm assumes the existence of the following type declaration: 

DrawinsModeType= (Dominant (Erase (Complement) i 
Here is the section of code for selecting drawing modes on a monochromatic CRT: 

const 

SetDrawinSMode= 1052! {mnemonic better than maiic number} 

va r 

DrauMode: array El. .11 of integer) { \ This is all stuff that } 

R a r r a y : a r r a y [ 1 . . 1 1 o f r e a 1 i { > is needed by the } 

Error: inteser! < / " o u t p u t _ e s c " procedure. } 



case Mode of i \ > 

Erase: DrawModeCl ] : =2! { \ Convert DrawiniMode enumerated > 

Dominant: DrauModeC 1 1 : =0 i { > type into the appropriate } 

Complement: DrauMode 1 1 ] : =3 i { / value for OUTPUT-ESC procedure, } 

end! {case} { / } 

outPut_esc(SetDrawinSMode(ltOtDrawModetRarraytError)» {set it} 

if ErrorOO then writeln ( 'Erro r '»Errar:0»' in procedure "DrawinSMade" . ' ) i 



A characteristic of drawing with drawing mode D o m i nan t or drawing mode Erase is that if a 
line crosses a previously-drawn line, the intersection will be the same "color" as the lines 
themselves. When drawing with drawing mode Complement, and a line crosses a previously- 
drawn line, the intersection becomes the opposite state of the lines. In other words, the pixels 
being defined by the line being drawn are exclusively-ORed with the pixels already on the 
screen. For example, assume a black background (like right after calling CLEAR_DISPLAY 2 ). 

1 There are actually four drawing modes that you can select; however, two of them, dominant and non-dominant, are identical on 
monochromatic displays. See the section called Writing Modes and Color in the Color Graphics chapter for a description of using non- 
dominant mode on color displays. 

2 There is a way to clear the screen to white, also. Set entry number in the color table (use the SET_COLOR_TABLE procedure) to anything 
which has a luminosity greater than 0.5. 
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You invoke a drawing mode C o m pie m e n t . then draw a pair of intersecting lines. When the first 
line is drawn, all pixels are off, so the line being drawn causes all pixels to be turned on along its 
length. However, when the second line is drawn, it will turn on pixels until it intersects the first 
line. At that point, the pixel is on, so it gets turned off. After that, the rest of the pixels are off, so 
they are again turned on. 

This concept is illustrated by the program DrawMdPrg (found on file "DrawMdPrg" on the DGLPRG : 
disc). The listing is given in the appendix so you can see how it works, but since it is a dynamic 
display, and constantly changing, it makes little sense to show a snapshot of it. The first 
statement of the main program (DrawMode:=Dominant i) defines the type of operation the prog- 
ram will exhibit. If DrawMode equals Complement, all lines will complement, because the two lines 
in the infinite loop (the while true loop) which select drawing modes only modify the drawing 
mode is if is Dominant or Erase. Otherwise, the drawing mode is not changed. When you wish to 
change the program to the drawing/erasing mode, change the first statement of the main 
program to say DrawMode:=Dominant i. Then the two drawing-mode-selecting lines will select 
drawing modes Erase and Dominant, respectively. 

In complementing mode, a pixel is on only if it has been acted upon by an odd number of line 
segments. 



Faster Drawing Procedures 

In the previous section, CRT Drawing Modes, the routines INT_MOVE and INTJJNE were used 
for moving and drawing, rather than the MOVE and LINE procedures used previously. The reason 
for the existence of these routines is that they exhibit higher execution speed. This increase in speed 
is obtained because the procedures do integer arithmetic, which is much faster than real arithmetic. 
The only restriction on parameters is that they must be 16-bit signed integers; that is, a subrange of 
INTEGER whose range is - 32 768 through 32 767. There is a TYPE defined in the module 
DGL.types called GSHORTINT which is this subrange of INTEGER. 

Depending on the application, they may be up to three times faster than their counterparts 
which deal with real numbers. However, the increase in speed will only take place if the 
following three conditions are met: 

• The display must be a raster device; 

• The window bounds must be within the range of -32 768 through 32 767; and 

• The window must be less than 32 767 units wide and high. 

There are some more INT- routines available also. They are identical to the same routines 
without the INT_ at the beginning of their names except for the restriction mentioned above. 

MOVE -» INT_MOVE 

LINE -* INTJJNE 

POLYGON -» INT.POLYGON 

POLYGON_DEV_DEP -> INT_POLYGON_DD 

POLYLINE -> INT.POLYLINE 
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Selecting Line Styles 



When a graph is attempting to convey several different kinds of information, colors are often 
used: the red curve signifies one thing, the blue curve signifies another thing, etc. But when only 
one color is available, as on a monochromatic CRT, this method cannot be used. Something 
that can be used, however, is different line styles. Even on a monochrome CRT, it makes sense 
to say that the solid line signifies one thing, the dotted line signifies another thing, and the 
dashed line signifies still another. 

The DGL procedure SET_LINE_STYLE is used to select from the available line styles. The single 
argument is an integer whose value is 1 through the number of line styles supported on the device 
currently being used. If using an HP-GL plotter, look under the LT (Line Type) instruction to 
determine how many line styles are supported. 

The CRT supports eight line styles: 
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B 

5 

4 

3 

2 

1 

As you can see, line style 1 draws a solid line. Line styles 2 through 8 are patterned sequences 
of on and off. For all line styles, the computer remembers where in the pattern a line segment 
ended. Therefore, when you start drawing another line segment, the line pattern will continue 
from where it left off. If you want the pattern to start over, just re-execute the line style 
procedure. 
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Plotters also have different line styles to select from. For example, the following line styles are 
available on the HP 9872 and HP 7470 plotters. 



7 
G 
5 
4 
3 
2 
1 



HP 9872 and 7470 Line Styles 

As another example, the HP 7580 and HP 7585 plotters have two different ways of plotting most of 
their line styles: continuous and vector-adjusted. Lines drawn with a continuous line style are drawn 
such that every line segment drawn continues the pattern from where the previous segment left off. 
If a line segment is short enough and the next section of the pattern is the space between marks, 
there may be nothing at all drawn for a particular line segment. Vector-adjusted lines are forced to 
have the middle of the main drawn section at each endpoint of the line segment. See the line 
segments below. 
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HP 7580 and 7585 Line Styles 
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Isotropic Scaling 



It was mentioned in the last chapter that there were two different types of scaling: isotropic and 
anisotropic. Isotropic scaling means that one unit in the X direction is equal in length to one 
unit in the Y direction. Anisotropic means that one unit in the X direction does not necessarily 
equal to one unit in the Y direction. 

We dealt with anisotropic scaling in the last chapter by calling the DGL procedure SET_ 
WINDOW. For the task we were working on at that time, anisotropic scaling was the best 
choice. However, when drawing a picture of a object, or drawing a map, is is very desirable to 
have isotropic scaling, so the representation of the object is not distorted. 

There is a way to cause isotropic scaling to be invoked. First, comparisons of the aspect ratios of 
the viewport limits and the window limits must be made. Then some extra room is allowed in 
either the X direction or the Y direction (but not both). The amount of extra room is just the 
precise amount to cause the requested window to be isotropically scaled into the viewport. 

Following is the listing of an algorithm to set a window isotropically. 

const 

Viewpo rtLimi ts= 451 i {mnemonic better than masic number} 

type 

L i m i t D r d e r = ( V x m i n » V x m a x > U •/ m i n i V v max) i 
LimitType= array ELimitDrder] of real! 

1.1 a r 

Pac: packed array [li.l] of char! { \ .i. sundry variables } 

Iarrav: array [1..1] of integer! { \ needed by the "im.ws" > 
Viewport: LimitTypei { /procedure) called to Set} 

Error: intesferi {/window limits. } 

Wxranset Wyranse: real! {X/Y ranSe in window (world) coordinates} 
Vxran«fE> VvranSe: real! {X/Y ranSe in viewport (virtual) coordinates} 
Wratioi '.'ratio: real! {aspect ratios of window and viewport} 
klxmidi W'/mid: real! {X/Y midpoints of window} 
WUratiot UWratio: real! {ratios of the ratios} 
Multiplier: real! {the amount to multiply the semiranie by} 



inq_ws C'iewpo rtLimi ts (0 »0 i4 tPac tlarray tUiewpo rt »Erro r) i {Set viewport limits} 
if ErrorOO then 

uriteln( 'Error '»Error:Oi' in procedure "Show".')! 
Wx ranSe : =Wxmax-Wxmin 5 {ranie of X in desired window} 

Wv ranse : =Wymax-Wymin i {ranie of Y in desired window} 

Wratio : =Wx ranse/Wy ranse i {aspect ratio of desired window} 

VxranSe:=V i e w p o r t [ U x m a x ] - U i e w p a r t [ V x m i n ] ! { r a n S e of X in current viewport} 
Vv ran^e : =l ,'iewpo rt [Uymaxl-Miewpo rtEVymin] ! {ranie of Y in current viewport} 
Vratio: =Vx ranSe/My ranie ! {aspect ratio of viewport} 

if abs( Vratio Kabs (Wratio ) then besin {need more room on top and bottom} 
W'/mid : =Wymin+Wv ranse*0. 5 i {Y midpoint in desired window} 

WUratio: =abs(Wrat io/Mratio ) ! {ratio of aspect ratios} 
Multiplier: =Wyranse*0. 5*WVratio i {what the Y ransfe must be extended by} 
Wvmin : =W'/mid-Multiplier i {new minimum Y for window} 

Wvmax :=Wymid+Multipl ier ! {new maximum Y for window} 

end 
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else b e i i n 

W x mi d : = W « m i n + W k r a ri 3 e * . 5 i 
yWratio:=abs(Vratio/Wratio)i 
Multiplier:=Nxran<fe*0.5#UWratio i 
W m m i n : = W x m i d - M u 1 1 i p 1 i e r i 
W x in a x : = W x m i d +M u 1 1 i p 1 i e r i 

end! { u r a t i o < w r a t i a ? } 

set_window ( Wxmin tWxmax tkb'friin iWymax ) i 



{nee d more room on r i i h t and left} 

{X midpoint in desired w i n d o w } 

{ ratio of aspect ratios} 

{what the X ranSe must be extended by} 

{ n e w m i n i m u m X for w i n d o w } 

{ n e w (ii a x i m u, m X for w i n d o w } 

{set window with twiddled parameters} 



Following are two example outputs from the program "IsoProg" (found on a file of the same 
name on the DGLPRG : disc) which demonstrates the isotropic scaling routine. The user is asked 
to specify Xmin, Xmax, Ymin, and Ymax for the isotropic units. The specified area is mapped 
into the viewport area isotropically, adding extra space to either the X or Y direction, whichever 
is needed. There is a dotted-line frame around the screen limits, and the requested limits are 
shown in a solid-line grid. The space added is outside the solid-line grid. In both cases, the 
whole screen was used for the viewport. 

In the first example, the requested values were to 6 in X, and to 8 in Y. Since the aspect ratio 
of this window is less than the aspect ratio of the viewport, some extra room is needed in the X 
direction, as shown. 
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In the next example, the requested values were to 7 in X, and to 4 in Y. Since the aspect 
ratio of this window is greater than the aspect ratio of the viewport, some extra room is needed 
in the Y direction, as shown. 




The program that produced the two preceding outputs is listed in the appendix. 
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Axes and Grids 

For many data-display graphs, axes along the edges are sufficient to get the message across. 
But if your graph needs to be read with more precision than axes afford, you can use a grid. A 
grid is a logical extension to axes, with some differences. The differences are: 

• The major tick marks extend all the way across the clip limits, and 

• The minor tick marks intersect in small crosses over the entire surface of the soft clip limits. 

There is a program called "AxesGrid" on the DGLPRG: disc which will help you understand 
how to write your own grid-drawing routine. It is similar to the axis procedures, except for the 
two differences noted above: the major ticks extend across the entire soft clip area (it calls 
CLIPDRAW), and the minor ticks for X and Y intersect in little crosses between the grid lines. 

The following program shows the differences between: 

• a pair of axes by themselves, 

• a sparse grid, 

• a dense grid, and 

• a sparse grid with two pair of axes. 




+ + + ■ + + + ■ + + + • + + + 

+ + + ■+ + + ■+ + + + + + 

+ + ++ + ++ + + + + + 

H , — , 1 > — ( 1 1 1 1 1 1 

+ + ++ + ++ + + + + + 

+ + ++ + ++ + ++ + + 

+ + ++ + +* + ++ + ■» 






Note that some care must be taken to ensure that the minor tick marks in a grid are smaller than 
the distance between them. If they are not, the minor tick crosses drawn by the grid procedure 
would have overlapped. The end result would have been a grid with even the minor ticks 
extending all the way across the soft clip area. 
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As the lower left graph shows, there is a way to get the best of both worlds — accurate interpola- 
tion and lack of clutter. If you want to be able to estimate the data values very accurately from 
the finished plot, but also want to prevent the plot from appearing too "busy", or cluttered, it 
can be done. The grid drawn has somewhat sparse major tick marks, but very many minor tick 
marks. The point of interest is that the minor tick length parameter is reduced to virtually zero. 
This causes the tick crosses (the little plus signs) to be reduced to mere dots. Using this strategy 
allows easy interpolation of data points (to the same accuracy as typically used in axes), but 
does not clutter the graph nearly as much as normal ticks would. In fact, had we used the 
previous minor tick length, the length of the lines making up the tick crosses would have been 
greater than the distance between the ticks. Thus, they would have merged together to make 
solid lines, extending all the way across the graph. This would greatly clutter the graph. 

Be aware when using this strategy of making huge numbers of degenerate tick crosses that the 
computer still thinks of them as crosses, which means that both the horizontal and vertical 
components must be drawn. This looks to you like drawing and then redrawing each dot. 
Therefore, when sending this type of grid to a hard-copy plotter, do not be averse to starting 
your plot, and then going on vacation. 

In the lower right quarter of the plot, there is another way to reach a compromise between ease 
of interpolation and lack of clutter. Axes are used on all four edges, and a sparse grid is drawn 
with major tick marks every second of the axes' major tick marks. 

Note that two pairs of axes were drawn. The parameters are identical save for the position of the 
intersection. The first pair of axes intersect at the lower left corner of the soft clip area. The 
second pair of axes intersect at the upper right corner of the soft clip area. 

Also note that when a grid is drawn, the frame around the window can usually be removed 
(depending on the Major Tick Count); the lines around the soft clip limits were being drawn by 
grid procedure anyway. 

All of the above have advantages; there is no one approach which is always best. On many 
occasions, an application is defined such that there is no question as to which procedure to use. 
Other times, however, it is not such a cut-and-dried situation and you want to weigh the 
alternatives carefully before setting your program in concrete. To aid you in the decision, here 
are some pros and cons to the approaches above. 

Advantages to axes: 

• Axes execute much faster than grids. This is for two reasons. First, there is much less 
calculating the computer must do, and second (and more important), there is much less 
actual drawing of lines the computer must do. This becomes especially evident when 
sending a plot to a hard-copy plotting device where physical pen must be hauled around. 

• It does not clutter the plot as much. Reference points are available at the axes, but there is 
no question about where the data curve is. When using a grid, it is possible to lose the data 
curve among the reference lines if it is close to being horizontal or vertical. 
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Advantages to grids: 

• Interpolation and estimation are much more accurate due to the great number of reference 
ticks and lines; one need not estimate horizontal and vertical lines to refer back to the axis 
labels. 

• Usually there is no need to explicitly draw a frame around the grid area to completely 
enclose the soft clip limits, as is often desired, because the major tick marks from the GRID 
procedure would probably redraw the lines. Of course, this is dependent upon the Major 
Tick count. 



Logarithmic Plotting 



In many fields, there are ranges of valid values which are so large that not only is isotropic 
scaling out of the question, but any kind of linear scaling — even anisotropic — is virtually use- 
less. To successfully depict these kinds of data, one or both of the axes can be logarithmic 
scales; that is, the data points themselves are not plotted, but the logarithm of each data point is 
plotted. For example: 

• In seismology, earthquake intensity is measured in the logarithmic Richter scale. 

• In acoustics, both sound intensity (decibels) and frequency (octaves) are dealt with in 
logarithmic scales. 

• In astronomy, a Hertzsprung-Russell diagram graphs both the luminosities and surface 
temperatures of stars logarithmically. 

• Also in astronomy, black-body radiation curves are plotted logarithmically. 

For logarithmic plots, logarithms (from here on referred to as logs) to the base 10 are most often 
used 1 . 

Homemade Mathematical Functions 

To deal with logs, we need to write two mathematical routines which are not provided in the 
language. 

Taking a Number to a Power 

First, we need to be able to exponentiate — take an arbitrary number to an arbitrary power. We 
can use an identity function of logarithms to do this: 

x y = e v In (x) 

This is easily done since Pascal does have functions to return the log and antilog 2 in the 
Napierian 3 base e. The function to return the natural log is LN, and the function for returning the 
natural antilog — e to a power — is EXP. 



1 An exception to this is I lie frequency example in acoustics mentioned above, in which octaves ileal with power-, of two. 

2 The lot;,,, 1000 3 because 10 '■ 1000. The antilog,,, 3 1000 because 10' 1000. 

3 The Napierian base e is ihe base of natural logarithms. Its value is 1 0! I 11! > 1 21 t 1 3 1 I 1 4' and equals approximately 2 7182,31 828 
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The Logarithm to Any Base 

The next function is slightly more complex. We needed a function to calculate the common 
logarithm (log to the base 10). We used another identity function of logarithms which allows 
one to calculate the log of any positive number to any positive base not equal to 1 — even 
fractional ones. We used a special case of this to calculate the common logarithm, or log to the 
base 10: 

y = /n(x)//n(b) 

Since this allows us to calculate the log of any (positive) number to any (positive) base not equal 
to 1, we will define the base to be 10. Now we can deal with common logarithms. 

Back to Logarithmic Axes... 

When you are doing logarithmic axes using logs to the base 10, you need to specify the minimum 
and maximum in decades. For example, say you want to make logarithmic axes from 0.01 to 1000. 
This is 10 2 to 10 3 , therefore, the will be five decades represented. To draw a logarithmic X axis: 

for Decade:=-2 to 3 do beSin 
if DecadeO then UnitMax:=9 
else Uni tMax : = 1 i 

for U n i t s : = 1 to UnitMax do beSin 
X:=Decade+LoSlO(Units) i 
move (X tYiriin ) i 
d raw(X tYmax ) i 
end i {for Units} 
end! {for Decade} 

The statement starting "if Decade<3" is there because we want the units to go from 1 to 9 1 for 
every decade except the last one, for which we only want the integral power of ten. 



1 Each decade goes from 1 to 9. not from 1 to 10. because 10 will be covered by the first iteration on the next decade. 
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Following is a short program (found on file "LogPlot" on the DGLPRGs disc) which draws 
logarithmic grid, and plots a curve on it. A logarithmic grid is merely a logarithmic axis with long 
tick marks. 
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pro S ram Lo SP1 ot ( Keyboard , out put ) i 

import d 3 1 _ 1 i b ! 

const 

-4; 



;uiiiri = 
Xmax = 

Y iii i n = 

Y in a k = 
Crt = 
Control 1 

type 

RDataType 
const 

X i.i a 1 u e s = 

Y v a 1 u e s = 



o ; 
3; 
3; 
0; 

array CI i .15 3 of real! 



{ 


\ 




} 


{ 


\ 


Decade mini m a 


} 


{ 


/ 


and max iiit a, 


} 


{ 


/ 




} 



{device address of S r a p h i c 5 raster} 
{device control word! i snored for CRT) 



RDataTypeCO.0003 » 0.0009 1 0.004* 0.00B, 0.01 t 0.07 » 0.22. 0.5 , 

1.2, 2.6 t 8.9, 18. S, 34, 5G » 97] i 
RDataTypeCl.lt 4.5. 13.38. 45.9, 60.33, 130.7. 34G , 690.4, 

899, 933, 903, 841, 720, 505, 390]! 



va r 

Error: inteSeri 

Decade: inteSeri 

Units, Uppe rLimi t : inteSeri 

X , Y : real! 

I : inteSeri 



{d i splay_ini t return variable! 



of;} 
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$paSe$ {*###***#**#*****#******##*********#*#***#**#****#************##*****> 

function LoSiCXX: real): real! 

{ } 

{ This function returns the logarithm to the base ten of a number. } 

{ } 

const 

LoS_10= 2.3025B509299i -CloS to the base e of 10} 
besin {function "LofllO"} 

LoSlO:=ln(X)/Lo3_10i 

end! {function "LoSlO"} 

$pase* {***#*#***##***#****##***#*#*********#**#****#*#**#***#*♦************> 
beSin {bod'/ of program "LoSPlot"} 

Sraphics.init j {initialize the Sraphics system) 

display _init(Crt iControl tError) i 
if E r r o r = then besin 
set_aspect(511 »389) i 
set_window(Xmin tXmax tYmin tYmax ) i 
{===== Dray and label logarithmic X-axis Srid =============================} 

for Decade:=Xmin to Xmax do beSin {one decade equals one mantissa cycle} 
if Decade=Xmax then Uppe rLimi t : = 1 
else Uppe rLimi t i =9 i 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle} 
X:=Decade + Lo!flO(Units) i 
m o v e ( X i Y m i n ) i 
line (X (Ymax ) i 
end! {for units} 
end! {for decade} 
{===== Draw and label logarithmic Y-axis arid =============================} 

for Decade : =Ymin to Ymax do besin {one decade equals one mantissa cycle} 
if Decade=Ymax then Uppe rLimi t : =1 
else UpperLimit :=9 i 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle} 
Y:=Decade+LoSlO(Units) i 
moue ( Xmin »Y) i 
1 ine (Xmax »Y) i 
end! {for units} 
end! {for decade} 
{===== Draw the logarithmic data curue ====================================} 

for I : = 1 to 15 do b e i i n 

if 1 = 1 then move (LoSlOtXUaluest 1 1 ) »LoSlO( YvaluesH ] ! ) 
else line(LoSlO(XyaluesCI])fLoslO(Yvalues[I]))i 
end! {for i} 
endi {Error=0?} {end of conditional code} 

sTaphics_te rm! {terminate Sraphics library} 

end. {program "LosPlot"} 
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Storing and Retrieving Images 

If a picture on the screen takes a long time to draw, or the image is used often, it may be advisable 
to store the image itself — not the commands used to draw the image — in memory or on a file. 



Note 

Because the location of the Model 237' s frame buffer may vary, storing 
and retrieving images on the Model 237 is somewhat more complex 
and exceeds the scope of this manual. Therefore, application of the 
GSTORE procedure to the Model 237 is not discussed here. 

Image transfer from the graphics memory to a user array can be done by overlaying an array 
directly on top of the graphics memory, i.e., forcing the starting address of a user array to be the 
same as the starting address of graphics memory. The user array is also the same size as the 
graphics memory. First, you must have an INTEGER array (32-bit integers) of sufficient size to hold 
all the data in the graphics raster. This amounts to an array size of 7500 1 on the Models 216, 220 
and 226, 6240 on the Models 217 and 236, and 24 960 on the Model 236 Color Computer. This 
array holds the picture itself, and it doesn't care how the information got to the screen, or in what 
order the different parts of the picture were produced. 

In the following program, the image is drawn with normal plotting commands, and then, after the 
fact, the image is read from the graphics area in memory, and placed into the user array, using the 
procedure GSTORE. After the array is filled by the GSTORE procedure, a curve is plotted on top of 
the image already there. Then, turning the knob changes the value of a parameter, and a different 
curve results. But we do not have to replot the grid, axes and labels. We merely need to copy the 
data containing the image (which has everything but the curve and the current parameter value) 
back into graphics memory by calling the inverse procedure, GLOAD. This allows the curve to be 
changed almost in real time. This program is contained in file "GstorProg" on the DGLPRG: disc. 
Note that only the size of the data array must be decreased if this is to work on a Model 216, 220, or 
226. If this is to work on a Model 236 Color Computer, both the array size must be increased and 
(because of the increased array size) it must be accessed dynamically-the NEW statement and 
pointers. 

Note that the $SYSPROG ON$ compiler directive must be in the program. The reason for this is 
that we are using the compiler's ability to force an array to be in a particular area in memory. We 
declare an integer array whose location in memory is exactly that of the graphics raster memory. 
Thus, when we deal with the array, we are dealing with the graphics memory, which has the current 
image in it. 



1 The reason the the lower-resolution displays require more memory for image storage than the higher-resolution displays is that the Models 
216. 220. and 226 use only the odd bytes of the words. Thus, only the least significant eight bits of each sixteen-bit word are used; the most 
significant eight bits are zeroes. 
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To write a program such as this, which stores a graphical image and reloads it, there are several 
housekeeping things which must be done. Two constants must be defined. First, you must know 
where in the physical memory of the machine the graphics memory resides 1 : 

const 

GRaste rAddr= hex( '530000' ) i 

Next, you must know how large the graphics memory is (the size of the graphics raster is 
expressed in 32-bit words): 

const 

GRasterSize= 6240 5 

Now, we must declare a type of which the variable being overlaid on the graphics memory will 
be: 

type 

GRasterType= array [ 1 , .GRaste rSize] of intesferi 

Next, overlay a variable directly on top of the graphics memory. The constant in the brackets 
immediately after the variable name forces the address of that variable to the specified location 
in memory. This can only be done if the $SYSPR0G 0N$ compiler directive has been encoun- 
tered. Note that if a Model 236 Color Computer is being used the array size exceeds the total 
amount of global memory space available, so the variable must be created dynamically; use the 
NEW statement and pointers. 

war 

GRaste r[ GRaste rAdd r] : GRaste rType i 

And finally, the user's variable into which the graphics memory will be placed. Although it is of 
the same type as the variable GRaster above, we will let the machine figure out where to put it: 

Screen: GRaste rType i 

After all these declaration have been set up, it is a trivial matter to store the graphics image into 
the user array: 

Gsto re (So reen ) ! 

Loading a screen image is just as trivial: 
Gload (Sc reen) 5 

Again, this program is on file "GstorProg" on the DGLPRG : disc, and a listing of ther program is in 
the appendix. It stores and reloads the graphics image to and from a user array. Of course, it 
also defines the necessary support constants, types, and variables for the GLOAD and 
GSTORE routines. It draws a blackbody radiation curve for the current temperature. 



1 Both the size and the address of the graphics memory in your machine is dependent on the model: 

Models 216, 220, and 226 Model 217 and 236 Model 236 Color 
Graphics memory address $530000 $530000 $520000 

Graphics memory size 7500 6240 24960 

The addresses are expressed in hexadecimal and the sizes are expressed in 32-bit integers. 
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Note that this program puts into use many of the concepts previously discussed in this chapter: 

• Conversion from virtual coordinates to world coordinates; 

• Specifying character size with a size in virtual coordinates and an aspect ratio, angular 
specification of label direction, and label justification; 

• Turning the alpha raster off (nonbit-mapped displays) 

• Logarithmic axes and grid; 

• Image storage and retrieval. 
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The first time the curve is displayed, it will look like the preceding display. Every time you hit a digit 
key, a new curve will be drawn, based on the current value of Temperature. 
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Data-Driven Plotting 

Many Lines in One Step 

In the cases where the data to be plotted is in arrays, it can plotted in one statement by using the 
POLYLINE procedure. The X data must be in one array, and the Y data in another array. Both 
arrays must be one-dimensional arrays of reals. Below is a program showing how to plot an X 
data array versus a Y data array. 




program PLineProS( output 
import d i 1 _ 1 i b > d i 1 _ i n q i 
const 

CrtAddr= 

Cont rolWo rd = 
f/pe 

RDataType= 
const 

Xualues= 

Y i.i a 1 u e s = 
var 

Er ro rReturn : 

)<> Y: 
$paSe* 
b e i i n 



3i 
0! 

array [ . . 1 ] of real! 

RDataTypeEOtl >Z»3»4i5 i6»7»B t9 » 10]! 
RDataTypeC 0)2.1 »a »3 »3 il »5 »3 »4 »6] i 

i n t e t e r i 
RDataType i 

{program "PLineProS" } 



iraphics_init i 

displa y _init(CrtAddr tCo ntrolWordtErro rReturn)! 

if ErrorReturn = then be Sin 

set_aspect(511 >389) i 

set_window(0 tlO »0 ilO) i 

m o u e ( » ) i 1 i n e ( 1 1 ) i 1 i n e ( 1 > 1 ) i 1 i n e ( 1 > ) i 1 i n e ( > ) i 

X: =Xvalues i Y: =Yualues ! 

polvlinedi »X,Y) i 
end! {Erro rReturn=0?> 
3raphics_te rm i 
end. {program "PLineProJ" > 
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Note that the X data need not be steadily increasing values so as to make a broken-line chart 
like above. It could just as easily be used for drawing pictures of objects where both X and Y 
vary in an unpredictable way. However, if both X and Y are going to change, you'll probably 
want to be able to control the pen status — you'll want to lift the pen and drop the pen at will. 

Drawing Multi-Line Objects 

Often, when plotting data points, they do not form a continuous line like the broken-line charts 
we've seen before. One must have the ability to control the pen's status (up or down), to allow 
drawing of several different, disconnected parts of an image in one step. For this need, there is a 
DGL procedure called POLYGON. The fourth parameter in the POLYGON procedure is the 
operation selector, and its function is to tell the computer to draw or not draw a particular line. It 
also specifies where individual polygons start. 

When plotting an entire array with the polygon statement, the fourth parameter is defined in the 
following manner. It must be of type INTEGER. The resultant action for the various operation 
selectors are: 



Operation 
Selector 



Polygon Operation Selectors 
Resultant Action 




1 
2 



Do not draw the edge extending from the last ver- 
tex to this one. 

Draw the edge extending from the last vertex to 
this vertex. 

This vertex is the first vertex of a member polygon. 



Note 

Although the POLYGON procedure heading declares the incoming 
arrays to be of type GREAL_L1ST or GSH0RTINT_L1ST, you can- 
not declare your own variables this way. Declare your variables a 
your own data type: arrays of the appropriate size of reals and short 
integers (16-bit integers; i.e., -32768. . 327G7). If you import the 
module DGI TYPES, you can use the type GBHORTINT. 



Following is a program (file "PolyProg" on DGLPRG : disc) which uses the POLYGON proce- 
dure. It draws a LEM (Lunar Excursion Module). The first parameter specifies how many points 
there are in the arrays. There are three arrays used: two one-column REAL arrays for the X and 
Y data, and a one-column INTEGER array containing opcodes. 
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proaram PolvProS ( output ) i {program name same as file name} 

import 

dal_l ib »dal_types ,dal_Polv (dal-irn i {access the necessary procedures} 
const 

MaxPoints= 

Crt = 

Control 3 
type 

Reals= 

W o r d = 

I n t e a e r s = 
const 

X v a 1 u e s = 



Y u a 1 u e s = 



QpCodes= 



war 
Error: 
I: 

LemX, LemY: 
OpSelecto rs : 
Points: 



27i 
3! 

o; 

array [l..MaxPoints3 
-327G8..327G7; 
array [lt.Maxpoints] 



{number of points in arrays} 
{device address of Graphics raster} 
{device control word! ignored for CRT} 



of real i 
of Word! 



RealsC 1,5 

-2,5 

-2,5 

2.5 

-0,5 

RealsC 1.0 

1.0 

-2,0 

-2.0 

-2,0 

I n t e a e r s [ 2 

•7 



2.5 

2,5 

•4,5 

4.5 

•1.0 

2.0 

1.0 

•4,0 

-4.0 

•3,0 

1 , 

1 , 

1 , 

1 , 

1 . 



» 1 
, 3 
»-2 
, 
i 
,-3 
1 ,1 
1 ,1 
2,1 
2,1 

n; 



l, 

-2, 

-5, 

5, 

0, 

4, 



-2, 
1 ,1 



5,-1 
5,-2 
0,-4 
0, 4 
5] i 
0, 4 
0. 1 
0,-4 
0,-4 
03 i 



.5,- 
.5* 
.0, 
. , 

. , 
. » 
,0, 
. Oi 



{to contain X and Y values} 
{IB-bit word} 

{to contain op, selectors} 



2.5,-2.5,-1.5: 



integer! 

i n t e a e r i 
Reals ! 
Inte ae rs i 
integer! 



{Octason} 
{Box} 

{Left lei} 
{Riaht lei} 
{Nozzle} 
3.0, 2.0, 1,0, {OctaSon} 
{Box} 

{Left lei} 
{Riant lea} 
{Nozzle} 
{Qctaaon} 
{Box} 

{Riaht lea} 
{Left lea} 
{Nozzle} 



{ d i s p 1 a y _ i n i t return variable! = ok} 

{loop control variable} 

{so we can pass it to "polyaon"} 

{ditto} 

{ditto} 
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$pa$e$ {*♦******#******#*##********♦*###******************♦*****************} 

be Sin {body of pros ram "Pol /Pros'"} 

L e in X : = X u a 1 u e s i { \ Put into variable array so } 

LemY : =Yual ties i i > it can be passed by } 

OpSelecto rs : =OpCodes i { / reference into the DGL proc.} 

Points : =MaxPoints i {put constant into an array variable} 

Sraphics-iriiti {initialize Graphics library} 

displav-init (Crt iCont rol »Er ro r) i {initialize CRT} 

if E r r o r = then b e S i n {if no error occurred...} 

set_aspect ( 51 1 »389 ) i {use the whole screen} 

s e t _ w i n d o w ( - 1 3 1 1 3 i - 1 1 1 ) i {invoke isotropic units} 
poly Son ( Points tLentX iLemY tOpSelecto rs ) i {draw the lines} 

end! { E r r o r = ? } {end of conditional code} 

s"raphiC5_te rtn i {terminate Sraphics library} 

end. {program "Pol/Pros"} {end of prosrain} 

What's in a Polygon? 

That's a good question, and brings up the crucial difference between POLYGON and 
POLYGON_DEV_DEP (as well as the INT versions of the same). The key to understanding the 
two classes of polygon is the concept of device independence. Polygons generated by proce- 
dures that lack the DEV_DEP (or DD) suffix are device independent, and will always be filled, 
with as close to the fill specified by the polygon table (lines or crosshatched lines at some 
specified density) as the device they are being drawn on is capable of producing. Thus the lines 
used for a fill on a CRT may have visible jaggies, and the lines used on a 7580 plotter will not, 
but both of them will produce polygons filled with lines. 

So what happens with POLYGON_DEV_DEP? The "DEV_DEP" calls specify a device depen- 
dent polygon. The fastest, most appropriate fill possible on the device is used to fill a polygon. 
On the CRT, this is a dithered area fill (dithering is discussed in detail in the "Color" chapter). 
On the plotter, the edge is drawn with the current line color attribute if edge is specifed in the 
operation selector array and enabled in the polygon table. If the polygon edge attribute is false 
and the operation selector edge attribute is true, the polygon edge is drawn with the current 
polygon interior color attribute and polygon linestyle. It is worth noting that in this case, if the 
current polygon interior color attribute is set to (the background in the color table), the 
polygon will not be visible. 

When to Use Which Polygon? 

Why are there two polygon fills? The two polygon calls address different valuable characteristics 
of the system. The POLYGON call tries to give a consistent representation, regardless of what 
display device is being used. The POLYGON_DEV__DEP calls are faster. You give up consisten- 
cy by using the device dependent calls, as well as control of drawing mode (all device depen- 
dent polygons are drawn in the dominant writing mode). The choice is yours; if you want speed 
or control of drawing mode, use the device dependent calls — if you want consistant presenta- 
tion of the image and/or control of the drawing mode, use the device independent call. 

Polygon Filling 

When drawing a polygon, whether it is filled or not is an attribute of the polygon. The filling 
attribute itself has other attributes; namely, method (dithered/hatched), density (0-100%), and, 
if hatched, hatching direction ( -90°-90°) and perpendiculars (true/false). 

Polygons can be filled two different ways. Filling allows you to shade the polygons to various 
shades of gray. 
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The first method of filling is to draw lines across the polygons; crosshatching. This is selected 
with the SET_PGN_STYLE procedure. Various densities of shading can be achieved through 
crosshatching, depending on both of the following: 

• The amount of space between the crosshatching lines; 
and 

• Whether or not there are perpendiculars. 

The other method of shading on a monochromatic CRT is called dithering. Dithering is a more 
accurate way to get shades of gray on a black-and-white CRT whose electron gun is either fully 
on or completely off. Dithering is accomplished through selecting small groups of pixels', a 
four-by-four square of them on the Series 200 computers. Various pixels in the dithering box 
are turned on and off to arrive at an "average" shade of gray. There are only seventeen 
possible shades because out of sixteen pixels (the 4x4 box); you can have none of them on, 
one of them on, two of them on, and so forth, up to all sixteen of them on. And it makes no 
difference which pixels are on; the pattern for each level is chosen to minimize the striped or 
polka-dotted pattern inherent to a dithered image. 

Crosshatching is accomplished by drawing many lines, and lines are drawn taking into account 
the current drawing mode (dominant, erase, or complement). One reason that this is important 
is that you can draw a complementing cursor with a call to the POLYGON procedure. Dithering 
does not deal with lines, therefore, the current drawing mode is ignored when doing a dithered 
fill. 



Note 

Polygons to be filled which extended over the edge of the plotting 
surface are completely filled-including all the area off the plotting 
surface. If a great deal of the polygon is invisible, then, it may appear 
that the machine is hung 2 , but in reality, it is merely doing a lot of 
calculations which do not affect the visible image at all. 



1 The word "pixel" is a blend of the two words "picture element," and it is the smallest addressable point on a plotting surface. A Model 236 
computer has 512 x 390-pixel resolution; thus there can be no more than 512 dots drawn on any row of the CRT, or 390 dots drawn in any 
column. 

2 "Hung," in this context, is short for "hung up." It is a computerese term which means that the machine has entered a state, usually 
unanticipated, in which the machine becomes unresponsive, and drastic measures are often required to correct it. 



76 Miscellaneous Graphics Concepts 



Here is another program which draws the LEM, and fills the polygons in two different ways. On 
the left, it is filled by crosshatching; on the right, it is filled by dithering. 




pro 3 rain FillPr 
import 

dsl.lib »d<fl_ 
const 

MaxPoints= 

Crt = 

Control= 
type 

Reals= 

Word = 

I n t e 3 e r s = 
const 

X i.i a 1 u e s = 



Y u a 1 u e s : 



o 3 ( o u t p u t ) i 

t y p e 5 » d 3 1 _ p o 1 v , d 3 1 _ i n q : 

27 1 

3i 
Oi 

array [ 1 . . M a x P o i n t s ] 
-327GB, ,32767! 
array [ 1 . . M a x p o i n t s ] 



{program name same as file name} 

{access the necessary procedures} 

{number of points in arrays} 
{device address of Graphics raster} 
{device control word? i 3 n o r e d for CRT} 

of real! {to contain X and Y values} 

{16-bit word} 
of Word! {to contain op, selectors} 



p C o d e s : 



Reals! 1 . 5 » 2,5 > 

-2,5. 2.5, 

-2,5.-4,5,- 

2,5. a, 5, 

-0,5,-1,0. 

RealsE 1,0, 2.0, 

1.0, 1.0.- 

- 2 , , - 4 , , 

-2,0,-4.0. 

-2,0 ,-3.0 , 

I n t e 3 e r s [ 2 . 1 .1 »1 

2.1 .1 ,1 

2,1 .1 .2 

2 ,1 ,1 .2 

2.1 .1 .1 



1,5,-1.5,-2.5,-2,5,-1.5 
-2.5,-2.5, 
-5.0,-4,0, 

5,0, 4.0, 

0.5]! 



{Qctason} 
{Box} 

{Left le3} 
{Ri3ht le3} 
{Nozzle} 



4.0, 4.0. 3.0, 2.0, 1.0, { D c t a 3 o n } 



-2.0, 1.0, 
-4.0,-4.0 , 
-4.0,-4,0, 
-2.0] i 
1 ,1 . 



va r 

Error: 

I: 

L e m X , L e m Y : 

QpSe lectors: 

Points: 



i n t e 3 e r ! 
i n t e 3 e r i 
Reals i 
I n t e 3 e r s i 
i n t e 3 e r ! 



{Box} 

{Left le3} 
{Ri3ht 1 e 3} 
{Nozzle} 
{Octa3on} 
{Box} 

{Ri3ht le3} 
{Left les} 
{Nozzle} 



{ d i s p 1 a y _ i n i t return variable! = ok} 

{loop control variable} 

{so we can pass it to " p o 1 v 3 o n " } 

{ditto} 

{ditto} 
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$pase$ {*#*****#***♦*#♦»#**##**************#*#********#**************#**#**#} 
be 3 in {body of pro 3 ram "FillPros"'} 

L e m K : = X v a 1 u e s i i \ Put into variable array so } 

LemY:=Yvalues i i > it can be passed by } 

OpSelecto rs : =OpCodes I { / reference into the DGL proc> 

Points :=MaxPoints i {put constant into an array variable} 

Sraphics-initi {initialize Graphics library} 

display_init (Crt tCont rol tErro r) t {initialize CRT} 

if Error=0 then be sin {if no error occurred...} 

set_aspect (51 1 (389) i {use the whole screen} 

set_window( -7.5 tl8.5 »- 10 1 10) i {invoke isotropic units} 

set_p Jn_st'/le( 14) \ {c rosshatched fill} 

Pol'/Son ( Points tLemX iLemY (OpSelecto rs) i {draw the lines} 

set_window(-18.5 i7 (-10 tlO) ! {invoke isotropic units} 

set_p«h-i_table(14(0,51 (Od) ; {set the "do a fill" f lafl> 

set_color_table(l (0.125(0.125(0,125) i {specify 12.51 Srav scale} 
set_P£fn_color(l)! {use specified "color"} 

Poly3on_dev_dep( Points (LemX (LemY (OpSelectors ) i {draw the lines} 

end! {Error=0?} {end of conditional code} 

Jraphics_te rm ! {terminate graphics library} 

end. {program "FillPros"} {end of program} 
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Shading Graphs 



Two previously-mentioned concepts can be combined to make broken-line charts which are 
filled. That is, you can consider the curve on the graph as edges of a polygon (along with the 
lower corners of the viewport), and fill the area with shading. Below is a short program which 
demonstrates the combined concepts. The program is found on file "FillGraph" on the 
DGLPRG: disc. 




p r o 3 r a in F i 1 1 G r a p h ( o u t p u t ) i 
import dsl-libi d 31 -types* 
const 

CrtAddr= 

C o n t r o 1 W o r d = 
t y p e 

RDataType= 

WDataType= 
const 

X v a 1 u e s = 

Y v a 1 u e s = 

Operation Selecto rs = 
Mar 

Er ro rReturn : 

Xi Y: 

OpSbI: 



d 9 1 _ p o 1 y i 



3! 
i 

array 
array 



[0. .12] 
[ . . 1 2 1 



of real ! 

of -32768. .32767! 



RDataTypelO » 1 #2*3 iQ >5 .6 .7 .8 .9 1 10 
RDataType[2t4»3»G)5t5i3»7»5»Gi8» 
WDataTypeCZ.l .1 .1 -1 .1 .1 »1 .1 .1 .1 > 

i n t e 9 e r i 
RDataType i 
WDataType i 



1 1 1 ] i 

»0] i 

1 »l]i 
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$pasfe$ 

b e 3 i n 

graphics 

display- 

if Error 

set-as 

set_wi 

m o v e ( 

X : = X u a 

set-PS 

set_p3 

p o 1 •/ i o 

end i {E 

graphics 

e n d i 



{program "FillGraph"} 
_ i n i t i 
i n i t ( C 
Return 
pect (5 
n d o w ( 
»0) i 
lues! 
n_tabl 
n _ s t '/ 1 
n(13»)< 
rro rRe 
_te nil i 



rtAddr fControlWord »ErrorReturn) i 

= then begin 

11 (389) i 

(10(0)10) i 

line(OtlO)! lineUOdO)! line ( 10 tO) 5 line(O.O)! 

Y : = Y u a 1 u e s i 
e(l (0.333(17.34(1) i 
e(l) i 

(Y(OpBel) ! 
turn=0?} 



{program "FillGraph"} 



Note that the two lower corners of the graph must be included in the definition of the polygon. 
The shading is done with hatching lines, and the angle of those lines is deliberately a strange 
angle to point out that you are not restricted to multiples of 45° for the hatching lines. If the plot 
is to come out on a CRT, dithering may be used instead. 

If the shading is going to be done with hatching lines, you may want to perform a linear 
regression on the data points. Then, you can indicate the overall trend of the data by defining 
the slope of the hatching lines to be the angle determined by the linear regression. 

Highlighting Data Curves 

You can note the location of the starting points of line segments by using the MARKER 
procedure. When the procedure is called, it outputs a marker of whatever type you selected. 
The valid values and what types of markers they output are listed below: 



Marker 
Number 


Resulting 
Shape 


<1 


• 


1 


• 


2 


+ 


3 


* 


4 


O 


5 


X 


6 


A 


7 
8 


□ 



9 


E 



Marker 


Resulting 


Number 


Shape 


10 





11 


1 


12 


2 


13 


3 


14 


4 


15 


5 


16 


6 


17 


7 


18 


8 


19 


9 



Marker numbers greater than 20 are device dependent. If the specified marker is larger than the 
number of marker the device supports, a dot (marker selector 1) will be used. 

Below is a program and its output which shows how to use the MARKER procedure. The 
program can be found on the file "MarkrProg" on the DGLPRG : disc. 
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pro 4 ram Ma rk rPro 4( output ) i 
import d 4 1 _ 1 i b > d 4 1 _ i n i i 
const 

CrtAddr= 

C o n t r o 1 1*1 o r d = 
type 

MarKe rNuiiiTvpe 

DataType= 
const 

MarKe rNuitibe r = 

Data = 
ua r 

ErrorRetum: 

I > J: 
$pa<fe$ 
b e 4 i n 



3! 

o; 

a r r a > 
a r r a > 



[ . . 4 ] of inte 9e r i 
CO,. 101 of integer! 



MarKerNumTypetZ .5 »6tBtl3] i 
DataTypeC0»2il»ilt3»3tl»5i3f4>B]i 

i n t e S e r i 
i n t e 4 e r i 

{**♦**♦####*#*#**##***#♦*##*******##*#**##*****♦***#♦♦##***#*♦****♦#*} 

{pros ram "MarkrProS"} 



3raphic5_init i 

d i s p 1 ay_ini t ( C rt Add r tCon t rolNo rd >E r ro rReturn ) ! 
if Er ro rRetu rn=0 then beiin 
set_aspect(511 »389) i 
set-window (0 (10 1 dO) i 

nioue(0t0)i 1 ine ( 1 10 ) i 1 1 ne ( 10 » 10 ) i line(10t0)i line(0»0)i 
for I : = to IX do b e 4 i n 
for J : = to 10 do b e 4 i n 

if J<>0 then marKe r ( Marke rNumbe r[ I ] ) ! 
if J = then moue(JiData[J] + I) 
else 1 ine( J iData[J] + I ) i 
end! {for J } 
end! {for i } 
end i {E r ro rRet urn = 0?} 
Sraphics_teririi 
end, {program "MarkrProJ"} 
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External Graphics Displays 
and Plotters 



Chapter 



In this chapter, we will be discussing the selection of external plotting devices. The 
DISPLAY_INIT procedure will be more thoroughly covered, in addition to dumping graphics 
images from a CRT to a printer. External CRTs (cathode-ray tubes), which may be connected to 
your computer through a 98627A interface card, and plotters, which may be connected through 
the built-in HP-IB (Hewlett-Packard Interface Bus) port in the back of your computer, will also be 
discussed. 



Selecting a Plotter 

In the previous two chapters, the program listings contained a line which said: 

display-in it(CrtAddr»ControlWord »Er ro rReturn ) i 

Because the value contained in the variable c rt Add r was 3-specifying the current console- the 
computer activated the internal CRT graphics raster as the plotting device, and all subsequent 
graphics output was directed to this display. If you want a plotter to be the output device, only 
the value of the variable c rt Ad d r need be changed. (You may also want to change the name of 
the variable. It is somewhat misleading to have the address of a plotter in variable named 
CrtAddr.) If your plotter is at interface select code 7 and address 5 (the factory settings), the 
modification would be: 

CrtAdd r: =705 i 
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Dumping Raster Images 

In addition to generating a hard-copy plot with a plotter, as described above, you can dump a 
CRT's raster image to a printer. This method is called a graphics dump or screen dump. It is 
accomplished by copying data from the frame buffer to a printer to be printed dot for dot. 

First, the image must be drawn on a CRT. Either the internal CRT or a color monitor connected by 
an HP98627A interface card may be used. Since this technique dumps a raster-type image, it prints 
only dots. Thus, it cannot draw a line, per se, but only the approximation of a line from the screen, 
made up of dots. The dump device "takes a snapshot" of the graphics screen at some point in time, 
and doesn't care now the dots came to be turned on or off. Thus, filled areas can be dumped to the 
printer; indeed, all CRT graphics capabilities (except color) are available. 

If your printer is an HP 9876, HP 2631G, HP 2671G, HP 2673A or any other printer which 
conforms to the HP Raster Interface Standard, dumping a graphics image is achieved with the 
OUTPUT_ESC procedure. If your active graphics display device (set with the DISPLAYJNIT 
procedure call) is monochromatic, a call to OUTPUT_ESC with operation selector 52 will dump the 
display if: 

• The active graphics display is the console (where alpha is displayed), or 

• The active graphics display is bit-mapped (i.e., is a Model 237 display or a display connected 
via the HP 98627A RGB interface). 

If you have a color device, all planes in the frame buffer are logically ORed. If you want more 
control over the output of a color image, an operation selector of 1053 will allow you to select 
individual planes from the frame buffer. The 1053 operation selector will work with the Model 
236C, the Model 237 bit-mapped display, or with a color display connected via the HP 98627A 
RGB interface. Since the Model 237 has only one plane, the plane designator is ignored. 

The exception to producing a desirable image via this method occurs if your active CRT is a 
bit-mapped display that supports more pixels than your printer has dots. In this case, the dump 
starts at the upper left-hand corner of the screen and dumps as far to the right and down as there 
are corresponding dots on the printer. 

Both of these operation selectors sent to OUTPUT_ESC would take the image in the currently 
active CRT graphics frame buffer (the internal CRT by default) and send it to volume PRINTER:. By 
default the printer is assumed to be at select code 7, bus address 1. This can be changed by 
modifying the CTABLE.TEXT program on the CONFIG disc. Find the line: 

local_printe r_def ault-dau = davCsc: 1> ba:lt du:-li du:-lli 

This sets the DAV (device address vector) for the printer to be at select code (sc) 7 and bus 
address (ba) 1. By changing this line, you can alter the destination of data sent to the volume 
PRINTER: 1 . 701 is the default factory setting for printers. 



If a graphics dump operation is aborted with the ( STOP ) key, the printer may or may not terminate 
its graphics mode. 



1 For an in-depth coverage of how to modify the CTABLE.TEXT program, seethe Special Configurations chapter of the Pascal 3. Workstation 
System Manual. 
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If you have a printer which does not conform to the HP Raster Interface Standard, all is not lost. 
It must, however, be capable of printing raster-image bit patterns. There are two main methods 
by which printers output bit sequences. The first is: when a printer receives a series of bits, it 
prints them in a one-pixel-high line across the screen. The paper then advances one pixel's 
distance, and the next line is printed. The other method (which lends itself to user-defined 
characters more than graphics image dumping) takes a series of bits, breaks it up into 8-bit 
chunks, and prints them as vertical bars 8 pixels high and one pixel wide. The next eight bits 
compose the next 1 x 8-pixel bar, and so forth. 

This latter method is that used by the HP82905 printer. The image (which is printed out 
sideways) takes a GSTOREd image and breaks the 16-bit integers into two 8-bit bytes, and 
sends them to the printer one row at a time. Writing your own routine to dump a graphics image 
to a non-comforming printer should not be difficult, given the ability of taking the graphics 
image and placing into your own data array (referred to in the last chapter). 

Note that on a CRT, an "on" pixel is light on an otherwise dark background, and on a printer, 
an "on" pixel is dark on an otherwise light background. Thus, the hard copy is a negative image 
of that on the screen. To dump light images on a dark background, you can invert every bit in 
the stored image. To invert the bits in a 32-bit integer, you can execute the following code 
segment: 

if N = in i ri i n t then 

N : = hi a x i n t 
else 

N:=-N-li 

The reason for the subtraction is that Series 200 computers use twos-complement representation of 
integers. Also, you must consider MININT 1 as a special case because you cannot negate MININT in 
an integer; -I- 2 147 483 648 cannot be represented in a signed thirty-two bit twos-complement 
number. 



lMININT and MAXINT are two standard constants in HP Pascal. MININT= -2 31 = -2 147 483 648, and 
MAXINT = 2 31 - 1 = + 2 147 483 647. 
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External Color Displays 



The HP 98627A RGB interface allows you to connect a color monitor to your computer, whether 
the computer's internal CRT supports color or not. The HP 98627A does not, as mentioned before, 
support color map operations; thus, you cannot change the color of an area on the screen without 
redrawing the area. Nor can you define your own color-addition scheme as you can with a 
color-mapped device (see the Color Graphics chapter). In addition to this, there are only eight pure 
colors 1 ; to get others, you must go to dithering. 

There are many types of color monitors which you can connect to your computer through an HP 
98627A color monitor interface. In the ControlWord variable which is passed to the DISPLAYJNIT 
procedure, you must specify accordingly: 



Desired 
Display Format 


Description 


Bits 
10-8 


Standard Graphics 

512 by 390 pixels, 
60 Hz, non-interlaced 


U.S. Standard 


001 (256) 


512 by 390 pixels, 
50 Hz, non-interlaced 


European Standard 


010 (512) 


TV Compatible Graphics 

512 by 474 pixels, 
60 Hz, interlaced 
(30 Hz refresh rate) 


U.S. Television 


011 (768) 


512 by 512 pixels, 
50 Hz, interlaced 
(25 Hz refresh rate) 


European Television 


100 (1024) 


High-Resolution Graphics 

512 by 512 pixels, 
46.5 Hz, non-interlaced 


High Resolution 


101 (1280) 


HP Use Only 


Internal 


110 (1536) 



Out of range values are treated as if ControlWord = 256, as is ControlWord =0 (except Model 
237, where keeps the type-ahead buffer, and 256 removes it). 



1 Only eight pure colors can be created on an external color monitor. This is because there is no control over the intensity of each color gun. 
Each color can be either off or on, and there are three colors: red. green, and blue. Two states, three colors: 2'' ----- 8. 
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External Plotter Control 

There are many device-dependent operations you can do through calling the OUTPUT_ESC 
procedure. See Appendix B for details on all the things you can do. 

Controlling Pen Speed 

To improve the quality of the lines drawn by a plotter pen, you may want to make them draw more 
slowly. There are other factors, too, which can affect line quality. For example, humidity can alter 
the line quality of a fiber-tipped pen. To accomplish this, you can call the OUTPUT_ESC procedure 
with the appropriate parameters. Or, the following procedure will do it. 

procedure P e n S p e e d ( S p e e d : inteJer) i 

t > 

{ This procedure selects a pen speed for ah HPGL plotter. > 



■} 



const 

SetPenSpeed= 2050; < a mnemonic is better than a masic number} 

V a r 

I a r r a y : a r r a v t 1 . . 2 ] o f i n t e «f e r ! i \ These are variables > 

Rarrav: array [ 1 . . 1 ] of real! { > needed by the DGL > 

Error: inteSeri i / procedure "outPut_esc"} 

b e S i n {procedure "Pen Speed"} 

Iarray[l]:=Speedi {use the passed parameter} 

I a r r a v I 2 ] : = ! {affect all pens} 

outPut_esc(SetPen Speed iZiOiIarray (Rarrav (Error) i 

if ErrorOO then {error?} 

w r i t e 1 n ( 'Error ' lErroriOt' in procedure PenSpeed".')! 

end! {procedure "PenSpeed"} 

The first element of the integer array specifies the pen speed; the range and resolution of pen 
speeds, and default maximum speed depend on the plotter. The second element of the array 
specifies the pens to be affected. One through eight specifies pens one through eight, respectively. 
Any value outside of this range is taken to mean, "Affect all pens." 

Selecting a pen speed specifies a maximum speed rather than an only speed, because on short line 
segments, the pen does not have time to accelerate to the specified speed before the midpoint of 
the line segment is reached and deceleration must begin. 

This procedure also provides a skeleton for making other special-purpose routines. For most 
operations dealing with OUTPUT_ESC, one need only change the name of the procedure and the 
parameters being passed to the OUTPUT_ESC procedure. 
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Controlling Pen Acceleration 

On the HP 7580, HP 7585 and HP 7586 drafting plotters, you can specify the amount of accelera- 
tion the pen is to undergo when starting or ending a line. On any particular line, positive accelera- 
tion (speeding up) will occur until one of two things happens: 

• The midpoint of the line is reached, and negative acceleration (slowing down, or deceleration) 
must begin, to ensure that the pen will reach a speed of zero precisely at the second endpoint 
of the line it's drawing; or 

• The specified maximum speed is reached. In this case, that speed will be maintained until the 
pen is at a particular distance from the second endpoint of the line. At that distance, which 
depends on the specified maximum speed and the specified acceleration, the pen will start to 
smoothly decelerate such that it will reach zero velocity at the second endpoint. 

The first element of the integer array passed to OUTPUT_ESC specifies the pen acceleration; it may 
range from one through four gees 1 . The second specifies the pens to be affected. One through eight 
specifies pens one through eight, respectively. Any value outside of this range is taken to mean, 
'Affect all pens." 

Controlling Pen Force 

On many drafting plotters (e.g., HP 7580, HP 7585, HP 7586), you can specify the amount of 
force pressing the pen tip to the drawing medium. This is useful when matching a pen type 
(ball-point, fiber-tip, drafting pens, etc.) to a drawing medium (paper, vellum, mylar, etc.). Again, if 
a pen is partially dried out, it may help line quality to adjust the pen force. 

The PenSpeed procedure mentioned above can be modified slightly to control pen force. The 
operation selector should be 2051. The first element of the integer array specifies the pen force; the 
second specifies the pens to be affected. One through eight specifies pens one through eight, 
respectively. Any value outside of this range is taken to mean, 'Affect all pens." 

The force number is translated into a force in grams. If, for example, you have an HP7580A plotter, 
the force number is converted to force as follows: 



1 = 


= 10 grams 


5 = 


= 42 grams 


2 = 


= 18 grams 


6 = 


= 50 grams 


3 = 


= 26 grams 


7 = 


= 58 grams 


4 = 


= 34 grams 


8 = 


= 66 grams 



This is not by any means an exhaustive list of the things you can do with OUTPUT_ESC, but it 
serves to acquaint you with the concept of using the procedure for controlling device-dependent 
operations. A thorough understanding of its use can only be gotten by combining information from 
the DGL Language Reference with actual hands-on experience. 



1 One "gee," or one [earth] "gravity," is the acceleration due to gravity at sea level. Its value is approximately 9.8 m/sec' or 32 ft sec'. 
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Interactive Graphics 



Chapter 



Introduction 

It has already been pointed out that graphics is a very powerful tool for communication. The high 
speed available from Series 200 computers makes possible a powerful mechanism for communicat- 
ing with the computer: Interactive Graphics. 

The best way to understand interactive graphics is to see it in action. Compile and execute the 
program "BAFLKNOB", from your "DGLPRG:" disc. If you turn the knob clockwise, the bar 
graph displayed on the screen will indicate a larger value. At the same time, the numeric readout 
underneath the bar will increase it's value. Turning the knob counterclockwise has the opposite 
effect. (If your computer has no knob, the arrow keys or mouse will work, but may not feel as 
"natural.") This is an effective demonstration of all the key characteristics of an interactive graphics 
system. They are: 

• A data structure. (The value displayed underneath the bar is the contents of a variable that we 
are modifying. The internal variable containing the value is a degenerate case of a data 
structure.) 

• A graphic display that represents the contents of the data structure. (The bar graph and the 
numeric display represent the value of the internal variable. ) 

• An input mechanism for interacting with the displayed image (the knob, in this case. ) 

This is the minimum set of requirements for an interactive graphics system. A key feature of 
interactive graphics is that it is a closed loop system. This means that the operator can immediately 
see the effect of his action on the system, and thus base his next action not only on the state of the 
system, but also on the effect his last action had on the system. A few points are worth noting about 
this system: 

• The knob is used because it is functionally appropriate. While we could have entered numeric 
values to control the bar graph, the knob "feels" right. We are used to using knobs to control 
metered readouts. 

• Control of the value with the knob is fairly intuitive. The normal range markings make it readily 
apparent when the value is in range. Little explanation is needed, due to the immediate 
feedback from the displayed image. 

• A system is "modeled." The user's input has a well defined relation to the output of the 
system. 

Thus, interactive graphics can be as simple as representing a single value on the screen and 
providing the user a method for interacting with it. It can also be as complex as a Printed Circuit 
layout system. This chapter will not tell you how to build a Printed Circuit layout system, but it will 
provide some hints on implementing interactive graphics systems that work. 



88 Interactive Graphics 



Characterizing Graphic Interactivity 

One of the most important things in designing a good interactive graphics system is characterizing 
the interaction with the system correctly. Properly characterizing the interactivity allows selection of 
the most appropriate device for interaction with the system. Three things have to be considered in 
characterizing the interaction: 

• The number of degrees of freedom in the system. This is the number of ways in which a system 
can be changed. 

• The quality of each of the degrees of freedom. This describes how the input to a degree of 
freedom can be changed. 

• The separability of the degrees of freedom. 

Once again, the best way to understand the characterization of interaction is to see an example in 
action. Compile and execute "BAR_KN0B2" from your "DGLPRG:" disc. This program is very 
similar to "BAR_KNOB", but it has several bars, instead of one. This introduces another degree of 
freedom to the model. The original program had a single degree of freedom, the value indicated by 
the bar graph. The quality of this degree of freedom is continuous. The new program has the same 
continuous input (which is still handled by the knob) but has added a second degree of freedom, 
the selection of the bar graph you want to modify. This degree of freedom is quantizable, and is 
handled by the numeric keys. (Softkeys would be even better, but require digging into the operat- 
ing system.) The degrees of freedom are also separable, since you don't need to interact with both 
of them at once. 

The degrees of freedom are not separable in freehand drawing -you want to change X and Y 
simultaneously. They are only partially separable in laying out images on a screen - you can get by 
with moving along one axis at a time, but it's easier if you can interact with both of them at once. 
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Selecting Input Devices 



The purpose of the discussion on characterization of graphic interaction was to lay the ground- 
work for discussing when various input devices are appropriate. There are several available to 
the Series 200 computers, and choosing the correct one is critical to the design of a highly 
productive human interface for an interactive graphics program. 

Single Degree of Freedom 

Many interactive graphics programs need deal only with a single degree of freedom. The 
appropriate control device for such programs depends on whether continuous control or quan- 
tized control is needed. 

The program "BAR_KNOB" is a good example of a single degree of freedom that is continuous. 
The knob is ideal for controlling a program like this. If "fine tuning" is needed, the shift key can be 
used as a multiplier to change the interpretation of the knob. The knob is read through the 
KEYBOARD file. The knob generates forward and back spaces for clockwise and counterclockwise 
motion, or line-feeds and up-spaces if the shift key is held down while the knob is turned. The 
following program ("BAR_KNOB" from the "DGLPRG:" disc) shows how to interpret the knob for 
a continuous, single degree of freedom, as well as how to update the display to show the results of 
the interaction. 

$ u c s d > d e b u S $ 

program Test ( keyboard to ut put ) i 

import d i 1 _ u a r s > d 3 1 _ t y p e s > d i 1 - 1 i b td 3 1 _ i n q i 

type 

States= (OntOff)i 

DrawMode= (Draw (Erase tContp iNonDom) i 
const 

FS= chr(28)! 

BS= ohr(8)i 

US= chr(31)i 

LF= chr(10)i 

CR= ch r ( 13) i 

0= '0' ; 

01= 'q'i 

Underline= chr(132)i 

I n d _ o f f = chr(12B)i 

lrn.'_0n= ch r( 129) 5 

MinBarY= 0! 

MaxBarY= 100! 

MinBar)<= 180! 

MaxBar>< = 220! 

IncDelta= 0.1! 
war 

Error_num: integer! 

I t T e m p I n t : i n t e 1 e r i 

Ley el iLastLeyel : real! 

Delta: real i 

CharWidth »CharHeiSht : real! 

Character: char! 

Done: boolean! 

keyboard: text! 

TenipStrinsf: Gstrin3255! 
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$pa3e$ { **♦**#•****##**#*****+***********#***********************************} 
procedure G raphicsDi splay ( State : States {On/Off})! 
c o n 5 1 

GraphicsDisp= 1050! 
ya r 

Error: integer! 

SwitchArrav : inteie r i 

Dummy : real > 
besin {procedure GraphicsDisplav} 

case State of 

n : S w i t c h A r r a y : = 1 ! 

Of f: Switch Array :=0i 
end! {case State of} 

outPut_esc(GraphicsDisp il »0 (Swi tchArray tDummv (Erro r) ! 
if Error < > the n 

write In ('Error '»Error:l*' encountered in GraphicsDisplav') ! 
end! {procedure GraphicsDisplav} 

$pase$ {**#*#*♦*##**###******#*************#*****+**************************} 
procedure Al phaDi spI ay ( St ate : St at es {On/Off})! 
const 

AlphaDisp=1051 ! 
ua r 

Error: integer! 

SwitchArrav : intese r i 

Dummy : real ! 
be s in {procedure AlphaDisplay} 

case State of 

n : S u i t c h A r r a y : = 1 i 

Of f : SwitchArrav :=0i 
end! {case State of} 

out put_es c (Alpha Disp tl »0 (SwitchArrav tDummy tErro r) ! 
if Error < > the n 

write In ('Error ' (Error:! t' encountered in Al phaDi s pi av ' ) i 
end! { procedure Al phaDi spI ay } 

$paSe$ {*♦#**#*#*##**********#*******************#**************************} 



b e s i n 

L e v e 1 : = i 

L a s t L e v e 1 : = L e v e 1 5 

Sraphic5_init i 

d i spI av_in i t ( 3 (0 »E r ro r_Num) i 

if Er ro r_IMum = then besin 
AlphaDisplay(Off ) i 
G r a p h i c s D i s p 1 a y ( n ) i 
set_aspect(511 (389) i 
set_window(0 nil 00 (-30 (120) i 
5et_color(l)! 
CharWidth : = (0,035*400) i 
CharHeisht : = (0. 05*150) i 



{Main Program} 

{current height of bar} 

{previous height of bar} 

{initialize the Graphics system} 

{which output d e u i c e ? } 

{output device initialization OK?} 

{turn off alpha display} 

{turn on Graphics display} 

{use whole screen} 

{scale the window for the data} 

{color numbe r 1 : white} 

{char width: 3.57, of screen width} 

{char heisht: 51 of screen height} 



set_char_s lze (CharWidth > CharHeisht)! {install character size} 
{ Outline the Bar 



move (MinBarX-0.5 tMiriBarY-0.5) 
lirie(MinBarX-0,5(MaxBarY+0.5) 
line(r1axBarX + 0.5 iMaxBarY+0.5) 
line(MaxBarX+0.5 iMinBa rY-0 . 5 ) 
1 i n e ( M i n B a r X - . 5 ( M i n B a r Y - . 5 ) 
{ Label the bar (numeric labels) 



{move to lower left corner..,} 
{...draw to upper left corner...} 
{...draw to upper rislht corner...} 
{...draw to lower left corner...} 
{...and draw to lower left corner.} 
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for I:=0 to 10 do bestir. 

st rwrite(TempStrinS il iTempInt 1 1*10: 3 , '- ' ) ; 

mo ye (179-strlent TempSt rinS)*Charklidth , 1*10-0, 24*CharHei Sht ) i 
Stext (TempStrinS)i 
end! {for I:=l to 10 } 

{ Label the bar (textual labels) } 

move (221 i 80-CharHe i Sht /2) i 
Stext ( '-Hish Normal ' ) i 
move (221 , GO-CharHe i Sht /2) i 
Stext ('-Low Normal')! 

{ How about some instructions } 

Charklidth : = (0. 02*400) ! {char width: 27, of screen width} 

CharHeiSht:=(0, 035*150) i {char heisht: 3. 51 of screen heisht} 

set_char_si ze ( Charklidth > CharHei Sht )'! {install character size} 

m o i.i e ( i 5 ) i 

TempSt r i n 3 : = 'Use the Knob to'+CR+LFi. 

Stext (TempSt rinS) ! 

TempSt r i n S j = 'Adjust the value . '+CR+LF i 

Stext (TempSt rinS) i 

TempSt ring-; = ' '+CR+LF! 

Stext ( TempSt rinS) ! 

TempSt rinS: = 'SHIFT with the Knob '+CR+LF! 

Stext (TempSt rinS) ! 

TempSt rinS: = 'speeds it UP.' + CR+LFi 

Stext (TempSt rinS) i 

TempSt r ins: = ' ' ! 

{ Set a Sood character size } 

CharWidth: = (0. 035*400) i {char width: 3.57, of screen width} 

CharHeiSht: = (0. 05*150) i {char heisht: 57, of screen heisht} 

set_char_size(CharWidth» CharHeiSht)! {install character size} 
repeat 

read( Key board (Character); {Set character without echo to screen} 

D e 1 1 a : = i {start by ass u in i n S no motion} 

case Character of {what's the character?} 

FS: Delta:=IncDeltai {risht arrow?} 

BS: Delta:=-IncDeltai {left arrow (backspace)?} 

LF: Delta:=10*IncDeltai {down arrow?} 
US: Delta:=-10*IncDeltai {up arrow?} 
OtOl: Done:=TRUEi {or Quit?} 

otherwise {if none of the above i iSnore it} 

end! {case ord(Character)} 
if Delta>0 then besin {GoinS Up} 

set_colo r( 1 ) ! {we want to draw lines} 

while (LeveKLastLevel+Delta) and (LeveKMaxBarY-IncDe 1 ta) do besin 
Level : =Level+IncDel ta ! {new top of bar} 
move (MinBarX (Level ) i {move to left edSei..} 

line (MaxBarX (Level ) i { t ..and draw to risht edse} 

end {while (LeveKLastLevel ) and (LeveKMaxBarY) } 
end {if (Delta>0) and (LeveKlOO) } 
else besin {GoinS Down} 

if (Delta<0) and ( Leve 1 > = 0.5*IncDel ta) then besin 

set_color(0) ! {we want to erase lines} 

repeat 

move (MinBarX i Level)! {move to the left edSe...} 
1 ine(MaxBarX » Level)! {...and draw to the risht edse} 
Level :=Level-IncDelta! {new top of bar} 
until (LeveK=LastLevel+Del ta) or (Level<=MinBarY) 
end! {if (Delta<0) and (Level>0)} 
end ! 
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{ How about some numbers? > 

s e t _ c o 1 o r ( ) ! {we want, to erase lines} 

st rwrite ( TempSt rins" tl tTempInt tLastLeuel :5: 1 ) ! {convert leu el to chars} 

iii0Me(MiriBar>!+(liaxBar>!-MinBarX)/2-strlen(TeiiipSt r in S)*CharWidth/2 » 

MiriBarY-2*CharHeis"ht) i 
stext (TeinpSt rinS) i {erase the old number} 

set_colo r( 1 ) i {we want to erase lines} 

s t rw r i t e ( T e m pS t r i n 3 » 1 ) T e m p I n t » L e m e 1 : 5 : 1 ) i 
move (MinBarX+(MaxBar;<-r1inBar!<)/2-strlen(TeiTipSt r in 3 ) *Cha rWi d t h /2 » 

MinBarY-2*CharHeiSht) \ 
Stext (TeinpSt rinS) i {write the new} 

Las tLeve 1 : =Leuel i {remember the old number} 

until Done! {repeat until user hits [Q]} 

GraphicsDisplay (Off) ? {turn off Graphics display} 

AlphaDisplay (On)! {turn on alpha display} 

d i s p 1 a y _ t e r m i {clean up loose ends} 

end? 

iraphics_teriiii {terminate the graphics package} 

end. {main program} 

Keys can be used for quantizable control of a degree of freedom. It is also possible to use keyboard 
entry of numeric values for quantizable information. 

Non-separable Degrees of Freedom 

One characteristic of multiple, non-separable degrees of freedom is that they are generally con- 
tinuous. The most common operation of this type is free-hand drawing. This is most easily accom- 
plished with the 9111A graphics tablet. 

Separable Degrees Of Freedom 

In many programs, the degrees of freedom are completely separable. In fact, for some operations, it 
is definitely preferable to have totally independent control of the degrees of freedom of the model. 

All Continuous 

If all the degrees of freedom in a model are continuous, then the selection of the degree of freedom 
to operate on becomes another degree of freedom, and is quantizable. A good choice is using the 
keyboard to select the degree of freedom and then using the knob to control the input to that 
degree of freedom. This is not as effective as a bank of knobs, but adding a bank of knobs means 
adding hardware (a voltmeter, power supplies, and potentiometers). The program "BAR_ 
KNOB2", on the "DGLPRG:" disc is an example of this type of interaction. Single keystrokes are 
used to select the degree of freedom you are operating on, and then the knob is used to vary the 
value along that degree of freedom. The following key interpretation loop is used in "BAR_ 
KNOB2" to allow the user to select the bar to be controlled, as well as controlling the value of the 
selected knob. 
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READ (KEYBOARD. Character) i 
Delta := Oi 
CASE Character OF 



FS 

BS 

LF 

US 

O.Q1 

'1',. 



Delta := IncDeltai 
Delta :=-IncDeltai 
Delta := 10* IncDeltai 
Delta :=-10*IncDeltai 
Done := TRUE! 
BEGIN 

CI ea rind (Bar) i 

Bar := ORD (Character)- 0RD('0')i 

Setlnd(Bar) i 

end; 
otherwise 

END! {CASE Character} 

All Quantizable 

If all the degrees are quantizable, using the keyboard (or using softkeys if you have requisite system 
design experience to use them) is appropriate. 

Mixed Modes 

In most sophisticated graphics systems, several degrees of freedom in the system interact with each 
other. A good example is a graphics editor. In a graphics editor, your primary interaction is with a 
visual image, and the degrees of freedom (X and Y location) for that operation are partially 
separable, at best. (They are non-separable if it supports freehand drawing.) There is also a degree 
of freedom involved in controlling the program. The program control is strongly separable from the 
image creation operation. 

The most appropriate device for supporting mixed modes is the HP 9111A Graphics Tablet. The 
tablet supports two modes of interaction by partitioning the digitizing surface into two areas. Sixteen 
small squares along the top of the tablet can be used as softkeys to provide a control menu. The 
large, framed area underneath the softkeys is the active digitizing area. The active digitizing area is 
used for interacting with the image you are creating. Other menu/ image area combinations are also 
possible. 

It is possible to combine the quantized, separable control operations with continuous, non- 
separable image editing. This is done by using the active digitizing area for interacting with the 
image and using the menu area for controlling the operations available in the editing program. The 
operator does not have to change control devices to access the different interaction modes. 
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Echoes 

An important part of interactive graphics is letting the operator know "where he is at." This can be 
done by updating the image. In other operations, such as menu selection, object positioning, and 
freehand drawing, it is important to show the operator where he is. In many cases, this can be done 
with AWAIT_LOCATOR. 

The Built In Echo 

Many graphics applications can be handled using the built-in echo. AWAIT_LOCATOR allows you 
to access one of the built-in echoes for digitizing. The following program interprets a menu to select 
one of the built-in echoes, and then draws an appropriate image on the CRT after the call to 
AWAIT_LOCATOR completes. It is on your DGLPRG: disc, in the file called "LOCATOR." If you 
have an HP 9111 Graphics Tablet, changing the constant Loc a to rAdd ress from 2 to 706 will allow 
you to use the tablet for a locator instead of the knob or mouse. 



$debu3* 

pros ram Test ( output ) i 

import d 3 1 _ v a r 5 . d 9 1 _ t >' p e s . d 3 1 _ 1 i b . d 3 1 _ p o 1 y > d 3 1 _ i n •* ! 

type 

OiiS! {nine commands total} 

array [ 1 . . 5 ] of reali 



C o m m a n d s = 

RealArray= 
const 

FS = 

BS = 

US = 

LF = 

CR = 

MinX = 

MinY = 

MaxX = 

MaxY = 

Xran3e= 

Yran s.e = 

LocatorAddress= 
var 

Er ro r_num : 

I i T e in p I n t : 

B u 1 1 o n v a 1 u e : 

X i n .Yin: 

X I a s t i Y 1 a s t : 
Charklidth .CharHeiSht 
Done: 
N e w L i n e : 
TempSt rin 3: 

EchoSelect .EchoSelector 
Menu Top: reali 

CellWidth: reali 

Command: Commands ! 



chr(28) i 
ohr(8) i 
ohr(31> 
c h r ( 1 ) 
ch r( 13) 

Oi 

Oi 

511 i 

389! 

M a x X - M i n X i 

MaxY-MinYi 

2 i 

i n t e 3 e r i 
int e3e r i 
i n t e 3 e r i 
real i 
reali 
real i 
boolean! 
boolean! 
Gst rin 3255! 

, . 9 ! 



{ r i 3 h t arrow} 

{left arrow or backspace} 

{up arrow} 

{down a r r o w } 

{carria3e return} 

{ m i n i m u m X u a 1 u e for screen} 

{minimum Y value for screen} 

{maximum X value for scree n } 

{maxim u m Y value for screen} 

{total ranse of X} 

{total ranse of Y> 

{2 for Knob .706 for 9111} 

{error return variable} 
{utility variables} 
{which button selected?} 
{location of digitized point} 
{last digitized point} 
{char size in world coords} 
{are we supposed to quit?} 
{start new line?} 
{utility variable} 
{ m e n u select i.o n } 

{width of menu spaces} 
{which command selected?} 



$pa3e$ {it******************************************************************} 

procedure DrawMenu! 

va r 

I : i n t e 3 e r i {loop-control variable} 

Y 1 a b e 1 : real! (Y position of entree label} 

Y a r r a y : R e a 1 A r r a y i 
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{ 

procedure MenuCel 1 ( I : inteSe r) i 
var 

Te 

XI 

Xa 
be Si 
case 

: 



1. 



end i 
p o 1 y 
m o v e 
Stex 
end i 
{--- 
be si 
Yarr 
Yarr 
Yarr 
Yarr 
Yarr 
Ylab 
for 
end i 
$paS 
f uno 
be Si 
if X 
else 
Te 
if 
el 
end 5 
e n d i 



mpPit 

abel: 

r r a y : 

n 

I of 

be Si 

Tern 

Xar 

Xar 

Xar 

Xar 

Xar 

XI a 

end ! 

,10: 

Tern 

Xar 

Xar 

Xar 

Xar 

Xar 

Tern 

if 

XI a 

end 

{cas 

1 i n e ( 

(XI ab 

ttTein 



ch: 



real i 
real ! 
R e a 1 A r r a y i 



{temporary variable} 
{ X position of entree label} 
{X positions of entree cell} 
{procedure MenuCell} 



n 

pStrinS:= 'STOP' i {label text} 

ray [13 :=0i { \ 

ray[23:=2*CellWidthi { \ 

ray[33 : =2*Ce 1 lWidth i { > X positions for box 

ray[43:=Oi { / 

ray [53 : =0i { / 

bel:=MinX+CellWidth-strlen(TempStrinS)*CharWidth/2i 



beS 
pPi 
ray 
rav 
ray 
rav 
ray 
pSt 
I< = 
bel 



in 
tch : = 

[13: = 
[23: = 
[33: = 
[43: = 
[53: = 
r i n S : 
8 th 
:=Xa 



CellWidth*Ii 
CellWidth+TempPitch i 
2*CellWidth + Tei!tpPitc 
=2*CellWidth+TempPitc 
= CellWidth+TeiitpPitch i 
=CellWidth+TempPitch i 
: = ' '5 

en s t rwri te (TempSt rin 
rray[13+CellWidth/2+s 



e I of} 

5 t X a r r a y i Y a r r a y ) ! 
el tYlabel) i 
pSt rinS) ! 



{temporary shorthand variable} 

{ \ 
hi { \ 
hi { > X positions for box 

{ / 

{ / 

{label text} 
Stl (Tempi nt > 1 : 1 ) i 
trie n(Te m pStrinS)*CharWidth/2i 



{draw perimeter of cell} 
{move to the risht place} 
{label the text} 
{procedure MenuCell} 



n 

ay[13:=MinYi 

ay[23:=MinYi 

ay [3 3 : =MenuTop i 

ay [43 : =MenuTop.i 

ay[53:=MinYi 

el:=MinY+(MenuTop-MinY)/2-CharHei 

I :=0 to 10 do MenuCell ( I ) i 

{procedure DrawMenu} 
e$ {**####♦*###♦*###♦**»*#***#*# 
tion CheckMenufXin: real): Command s 
n 
in<2*Ce 1 1 Wi dt h then CheckMenu:=0 

b e S i n 
mpInt:=trunc((Xin-CellWidth)/Cell 

Teiriplnt>8 then CheckMenu: =Comman 
se ChecKMenu:=Te iii pint 

{function CheckMenu } 



{procedure DrawMenu} 
{ \ } 

{ \ } 

{ > Y values for box } 
{ / } 

{ / } 

Sht/2i {Y position of label} 
{do all the entree cells} 

♦#****#****#*#*#*#*#*###*#**##*#####*###} 
5 

{function CheckMenu} 

{X outside of menu?} 



Width) I 
d 



{which sell chosen?} 



96 Interactive Graphics 



$pase$ {**#*♦********###**#****#***#**#*#**#**#**********#******♦**#******«•*} 
b e a i n { M a i n p r o S r a m } 

Sraphics_init! {initialize the 3 r a p h i c s system} 

di5Play_init (3 iO iEr ro r_NuiTi) i {which output device?} 

if Erro r_Num< >0 then besin {output deuic initialization OK?} 

y r i t e 1 n ( ' I failed to initialize the display.')! 
writeln ( 'Erro r number ' )E r ro r_Num : 2 i ' was re t u rned . ' ) ! 
end {if Erro r_Num< >0> 
else besin 

LOCATOR. in it ( Locat o rAdd ress >E r ro r_Num ) i 
if E r r o r _ N u m < > the n besin 

writeln ('I failed to initialize the locator.')! 
writeln ( 'Erro r number ' tErra r_Num: 2 t ' was returned.')! 
end {if E r ro r_Num< >0> 

else besin {No errors so far} 

set_aspect ( 51 1 i389) ! {use whole screen} 

set_window(0 »51 1 tO »3B9) i {scale window for data} 

CharWidth:=0. 035*511 i {char width: 3.51 of screen width} 

CharHei Sht : =0.05*3B9 ! {char heisht: 51 of screen heiSht} 

set_char_size (CharWidth .CharHei Sht )!{ instal 1 character size} 
MenuTop: =YranSe/13 ! {menu is 1/13 the total screen heisht} 

Cel INidth : =Xran3e/12 ! {each entree cell 1/12 screen width} 

DrawMenui {draw the menu} 

N e w L i n e : = t r u e ! {yes. we are s t a r t i n S anew line} 

EchoSelect : =H ! {start proSram with default command} 

Command : =H ! {ditto} 

D o n e : = f a 1 s e ! {no* we're not done vet} 

repeat 

if NewLine then {startinS a new line?} 

EchoSe 1 ecto r : =2 
else 

EchoSelector:=EchoSelect! 
await_locato r(EchoSel ecto r iButtonUalue .Kin (Yin ) ! 



if YinCMenuTop then besin 
N e w L i n e : = t r u e ! 
C o m m a n d : = C h e c K M e n u ( X in) ! 
case Command of 



: D o n e : = t r u e ! 
: EchoSelect:=l 
: EchoSe 1 ect : =2 
: EchoSelect :=3 
: EchoSelect :=4 
: EchoSelect:=5 
: EchoSe 1 ect : =B 
: EchoSe 1 ect : =7 
: EchoSe 1 ect : =8 

{ case } 
{if} 



1 

n 

3 

l\ 

5 

G 

7 

B 
e n d 
e n d 
else besin 

if NewLine then b e 3 i n 

NewLine : =f a lse i 

5 e t _ e c h o _ p o s ( X i n > Y i n ', 

m o ij e ( X i n » Y in) ! 

Y 1 a 5 1 : = Y i n i 

X 1 a s t : = X i n ! 
end 



{user choose menu option?} 
{start a new line next time} 
{determine menu selection} 
{which command} 

{'/est we're done with the proSram} 

} 

} 

} 

Select the approp riate } 

EchoSelector. } 

} 
} 
} 



{not a menu s e 1 e c t i o n } 

{start a new line} 

{now we're in the middle of a line} 

{mo Me the Sraphics cursor} 

{cause 1 ine-d rawinS to start there} 

{remember the last )■(...} 

{...and the last Y } 



{ 


\ 


{ 


\ 


{ 


\ 


{ 


/ 


{ 


/ 


{ 


/ 


{ 


/ 
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else besin 

s e t _ e o h o _ p o s ( X i n i Y i n ) 5 {move the 4 r a p h i c s cursor} 

if (Xin=Xlast) and (Yin=Ylast) then NewLine : =t rue 
else b e 4 i n 

case EchoSelect of 

1..7: line (Kin > Yin ) I {draw a line} 

S : b e 4 i n 

1 i n e ( X 1 a s t i Y i n ) i 
1 i n e ( X i n i Y i n ) ! 
1 i n e ( X i n t Y 1 a s t ) i 
1 i n e ( X 1 a s t t Y 1 a s t ) ! 
NewLine : =t rue ! 
e n d 
otherwise 
end! {case EchoSelect of} 

X 1 a s t : = X i n ! {remember the last X . . . } 

Ylast:=Yini {...and the last Y} 

end 
e n d i 
e n d ! 
until Done! {are we done yet?} 

locato r_te rm i {terminate the locator} 

display_te rmi {terminate the display} 

end! {Error trap} 
end i 

3raphics_te rm ! {terminate the Graphics system} 

end. {Main program} 

Rubber Echoes 

If you have run the progam "LOCATOR," you will have seen that several of the echoes are rubber 
band echoes, in other words, they create lines that seem to stretch between various points on the 
screen. Echoes 4 through 8 require two points to define them. One of these points is the point being 
tracked with the AWAIT_LOCATOR statement. The other is the anchor point, and is set using the 
SET_£CHO statement. After using one of the rubber band echoes, and drawing the figure it 
represents, it is necessary to get a new point to anchor the next echo to. This is done in the program 
"LOCATOR" by the following block of code: 

IF NewLine THEN BEGIN 

NewLine := FALSE! 

SET_ECH0_P0S (Xin.Yin)i 

MOVE (XintYin) i 

Ylast:= Yin! 

Xlast:= Xin! 
END 
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ELSE BEGIN 

SET_ECHO_POS (Xin, Yin) ! 

IF (Xin = Xlast) AND (Yin = Ylast) THEN 

NewLine := TRUE 
ELSE BEGIN 

CASE EchoSelect OF 

1. .7: LINE (Xin ,Yin) i 
8 : BEGIN 

LINE (Xlast , Yin) i 
LINE (Xin , Yin) i 
LINE (Xin , Ylast) i 
LINE (Xlast i Ylast ) i 
NewLine := TRUE! 
END 
OTHERWISE 

END! (CASE EchoSelect of} 
Xlast := Xin; 
Ylast : = Y i n i 
END 
ENDi 

In the preceding code, the anchor is set to the last digitized point, unless the same point was 
digitized twice, in which case the small croshair cursor can be used to select a new anchor point. 
Once a new anchor point is selected, the rubber band cursor mode is returned to. 

When the knob is being used as a locator, it is also possible to use SET_ECHO to establish the 
initial position of the locator when AWAIT_LOCATOR is called. 

Tablets and Aspect Ratios 

If the knob is used as a locator for the CRT, the mapping between the locator device and the display 
device is isotropic, since the two devices use the same display mechanism. This is not true if an 
external digitizing device (such as the HP 9111A Graphics Tablet) is used. The default aspect ratio 
for the 9111A is 0.7234, while the CRT of the Model 236 =0.7613 (as set up in "LOCATOR," 
above). This means that a square area on the graphics tablet does not represent a square area on 
the CRT. This is not a tremendous problem in many interactive graphics programs, where the tablet 
is merely used to point at objects. However, in some applications, those in which the tablet is used 
to copy an existing document into the computer, the distortion is not acceptable. This is easly 
remedied, through the SET_LOCATOR_LIM procedure. The following addition to the "LOCA- 
TOR" program will set the tablet to the same aspect ratio as the CRT, insuring the desired 
isomorphic transformation. 

ELSE BEGIN {No errors so far} 
SET.ASPECT (511 ,389) ! 
IF Locator Ad dress = 70S THEN BEGINUhis is a tablet) 

SET_L0CAT0R_LIM ( 0,(51 1/389) #217. G ,0,21 7, B ,E r ro r_r,um ) i 
IF Error_num <> THEN 

WRITELN (Error-mini: 2 , ' encountered in SET_L0CAT0R_LIM. ' ) i 
END! {IF LocatorAdd ress = 706} 
SET-WINDOW (0,511,0,389)! 
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Chapter 



Color ! 

Color can be used for emphasis, for clarity, and just to present visually pleasing images. Color is a 
very powerful tool, and it follows directly that it is very easy to misuse. Be careful in using color, and 
it will serve as a valuable tool for communication. Misuse it, and it will garble the communication. 



The DGL Color System 

In order to create a device independent programming language, it is necessary to model an ideal 
system, and then create transformations to map that system onto real hardware. This is the way the 
Device independent Graphics Library (DGL) works. Understanding the ideal color system will 
make it much easier to understand the actual implementations that are available on Series 200 
computers. 

In order to understand the color system, it is necessary to understand two concepts: 

• Color as an Attribute 

• Models for Color Specification 

After covering these topics, we will also go into the concept of a color space, which is another way 
of describing the color models that are used in DGL. 

Color As An Attribute 

We have already dealt with the attribute of linestyle, and the attributes which describe the fill pattern 
in a polygon. Color is another primitive attribute. Two procedures in DGL allow you to specify the 
attribute of color: 

• SET_COLOR selects the color used by GTEXT, LINE, INT_LINE, POLYLINE and INT_ 
POLYLINE, as well as the edges generated by POLYGON, POLYGON_DD, INT_POLYGON 
and INT_POLYGON_DD. 

• SET_PGN_COLOR selects the color used for the interior of polygons generated by POLY- 
GON, POLYGON_DD, INT_POLYGON and INT_POLYGON_DD. 

Notice that SET_COLOR and SET_PGN_COLOR both select a color attribute. The selection is 
made from the color table. 
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The Color Table 

The color table is a repository of color definitions to be used for displaying primitives. It is used 
to describe both lines and filled areas. The color table is a list of 32 colors, providing 32 colors 
for the color attribute of graphics primitives. 

Default Colors 

When DGL is initialized for a color display (the 98627A or the Model 236 Color Computer), the 
color table is set up with the following values: 

Default Color Table Values 



Value 


Color 





Black 


1 


White 


2 


Red 


3 


Yellow 


4 


Green 


5 


Cyan 


6 


Blue 


7 


Magenta 


8 


Black 


9 


Olive Green 


10 


Aqua 


11 


Royal Blue 


12 


Maroon 


13 


Brick Red 


14 


Orange 


15 


Brown 


16 thru 31 


White 



The Primary Colors 

The lower eight pens are the colors of the default color map; the colors that can be created by 
turning the guns of a color CRT on or off, in various combinations : 

• Black and White (the extremes of no-color) 

• Red, Green, and Blue (the additive primaries) 

• Cyan, Magenta, and Yellow (the complements of the additive primaries - which happen to 
be the subtractive primaries) 

The Business Colors 

The upper 8 colors (8 through 15) were selected by a graphic designer to produce graphs and 
charts for business applications. The colors are: 

• Maroon, Brick Red, Orange, and Brown (warm colors) 

• Black, Olive Green, Aqua, Royal Blue (cool colors) 

These colors are one designer's idea of appropriate colors for business charts and graphs. They 
were chosen to avoid clashing with each other. A technique for using them is described under 
"Color Hard Copy" in the "Color Spaces" section at the end of this chapter. 
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Monochromatic Defaults 

If a monochromatic display device is being used, the color table defaults to a set of dithered 
gray patterns: 

Default Monochromatic Color 
Table Values 



Value 


Luminosity 





0.0000 


1 


1.0000 


2 


0.9375 


3 


0.8750 


4 


0.8125 


5 


0.7500 


6 


0.6875 


7 


0.6250 


8 


0.5625 


9 


0.5000 


10 


0.4375 


11 


0.3750 


12 


0.3125 


13 


0.2500 


14 


0.1875 


15 


0.1250 


16 


0.0625 


17 thru 31 


1.0000 



If You Don't Like the Defaults 

The contents of an entry in the color table can be modified with the procedure 
SET_COLOR_TABLE. The actual effect of a call to SET_COLOR_TABLE depends on the 
color model being used. The color model is selected using SET_COLOR_MODEL. Which 
brings us to color specification. 
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Models For Color Specification 

As mentioned above. SET_COLOR._ TABLE is used to control the actual value of entries in the 
color table. It was also pointed out that the effect of SET^COLOR. TABLE is determined by the 
current color model, which is controlled by SET_COLOR_MODEL. It follows that it is neces- 
sary to understand SET _COLOR_MODEL before it is possible to understand 
SET_COLOR_TABLE. 

SET_COLOR_MODEL selects (if you haven't already guessed) the color model to be used. 
There are two models available in DGL; the RGB (Red. Green. Blue) and the HSL (Hue, 
Saturation. Luminosity) models. We will discuss them in order of ascending complexity. 

The RGB Model (Red, Green, Blue) 

The RGB model can be thought of as mixing the output of three light sources (one each of Red, 
Green, and Blue). The parameters in the model specify the intensity of each of the light sources. 
The RGB model is selected by using a model selector of 1: 

SET_C0L0R_M0DEL ( 1 ) i 



Once the RGB color model has been selected, the parameters sent to SET_COLOR_TABLE 
represent the percentage of full intensity of the red, green, and blue light sources: 



SET_C0L0R_TABLE (TableEnt r: 



Red* Green* Blue)? 



The following picture illustrates a physical model for the RGB system. 




RGB Color Model 
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Whenever the red, green, and blue parameters have the same value, the resulting color is a 
gray tone (i.e. it has no hue component). The RGB model is based on the additive primaries, 
the colors used for describing mixing light, as opposed to mixing pigments, which are subtrac- 
tive. It is a good system for interacting with color CRT displays, since it requires little conversion 
to translate it to a set of signals suitable for driving a color CRT. 

The HSL Model (Hue, Saturation, Luminosity) 

The HSL model is closer to the intuitive model of color used by artists, and is very effective for 
interactive color selection. It is similar in concept to the methods used by artists for mixing 
paints, where pure hues are selected, and then white and black are mixed to dilute the color 
and/or darken it. The three parameters represent hue (the pure color to be worked with), 
saturation (the ratio of the pure color mixed with white), and luminosity (the brightness-per-unit 
area.) To better understand the parameters, let's build a model for the HSL system. 

If we start with a white light source we should be able to get any color we want by filtering it. (A 
perfect white light source contains equal parts of all possible colors. ) 

The first step is to select the Hue to work with. This can be done with a color filter. In fact, if we 
take several color filters, and arrange them to form a disk, we could rotate the disk in front of the 
white light source and choose any of the colors on the filter wheel. Since the model we are 
working with is a model for understanding rather than one that we actually have to build, we 
can consider the wheel to consist of an arbitrarily large set of color filters, so that any rotational 
movement of the wheel will select a different color filter. Now we will provide a mechanism to 
drive the wheel which will position it angularly, based on a number we send to it, a number 
between and 1 (inclusive). We will arrange the filters as a conventional color wheel (there are 
advantages to this, which are discussed under "Effective Use of Color," later in this chapter). 
Since it is a wheel, it must meet itself somewhere, and Red is as good a place as any, so two 
parametric values (0 and 1) describe red. Such a color wheel would look something like this: 




A Color Wheel for the HSL Model 
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This arrangement is fine for producing highly saturated colors (bright, pure, intense colors), but 
there are other types of colors, and we need to be able to produce them. For a start, we can mix 
some white light (remember our white light source?) with the filtered light, to desaturate the 
color. Combining the filtered and unfiltered lights directly would produce 50% saturation, and 
would double the luminosity of the resultant color. We want to have variable control of the 
saturation, and, to keep the model simple, it would be better if the result of the saturation 
control produced a unit luminosity. If. instead of mixing the two light beams directly, we mix the 
outputs of two simple optical gates that are linked with a mechanical slider to control the 
proportions of the colored and filtered light, we can control of the saturation while maintaining 
a constant luminosity (intensity-per-unit-area). Once again, we will provide a mechanism which 
takes a number between (no color - pure white) and 1 (fully saturated color) and positions the 
slider appropriately. The two pictures below show the model we have described, with a fully 
saturated red in the first one, and a 50% saturated red in the second one. 
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Fully Saturated Red 
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UnlPbllty 



Lumno«1 ty 
trla 



50% Saturated Red 

Finally, we may wish to change the luminosity, or brightness of a color (for example, brown is a 
dark red). This can be accomplished by putting an iris (like the one found on a 35 mm camera) 
after the mixer that combines the output from the saturation slider. The same through 1 
numerical control interface is used to control the iris, and thus the luminosity. The following 
three pictures show some combinations of the various controls: 



Sltur** ten -* jH;^;-. : 

■ a.*= ■:.. 




M i rro r K 

Jr P 


rui>-itw S 


1 ■■ Sftturvtton-H 
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H 


I J ^1 
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} 
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Fully Saturated, Fully Luminous red. 
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Fully Saturated, 50% Luminous Red. 




50% Saturated, 50% Luminous Red. 
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To recap, the Hue parameter rotates a color wheel to select a "pure" color to use. This color is then 
mixed with white light. The ratio of the pure colored light to the white light is controlled by the 
Saturation slider. Finally, the output passes through the luminosity iris (think of it as a hole you can 
adjust the size of) that controls the brightness of the output. 

The HSL model is specified by a model selector of 2 in the SET_COLOR_MODEL statement: 
SET_C0L0R_M0DEL (2) i 

A program called "COLOR" on the "DGLPRG:" disc uses the HSL model for interactive color 
selection. ("COLOR" only works correctly on a Model 236 Color Computer.) It produces two 
arrays for use with the SET_COLOR_TABLE statement, one for INTENSITY and one for 
COLOR. The program is over 300 lines long, almost all of which is simply a human interface to 
the following code in the update routine: 

SET_C0L0R_TABLE (TableEnt ry > 

HueVaHTableEntry] , 
SatValCTableEntr/] » 
LumVaHTableEntry]) i 

Which Model? 

Two models are provided by the DGL color system. If you are working with primaries only, or want 
gray scale output, the RGB model is great. If, on the other hand, you are trying to deal with pastels 
and shades, you are better off with a color model that is intuitive in nature, and that is where the 
HSL model shines. 

It is possible to get the best of both worlds by using the HSL model for the human interaction, then 
reading the color table to get the RGB color values. 

The "COLOR" program mentioned above does exactly that to calculate the correct cursor and text 
color to use when the user changes the background color. This is done by reading in the RGB color 
table values, calculating which corner of the color cube is farthest from the background color, 
setting the foreground pen and text displays to that color, and then writing the RGB values back 
into the color map. Even though the primary interaction is with the HSL model, the RGB model is 
used because it is more convenient to find distances between colors in it. 

type 

Colors= (Red tYel low (Green tCyantBluetMaSenta (White tBlaoK)! 

Modes= (Hue (Sat (L urn (Table (Copyl(Copy2)i 

EntryRanSe= -l.,16i 

FunnyArray= array [Colors! of ohari {array for alpha color} 



c o n 5 1 

FunnvChar= FunnvArrayCchrt 139) »chr( 137) » -C\ Array for } 

chr(13B) (Chr(iaO) ( { \ holdini the > 

chr(142) (Chr(143) , { I alpha-color } 

ohr(lfll) (Chr(138)]i {/ controllers } 
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va r 
Tab 
Red 
Lab 
Bac 



1 eEnt rv : 
BacK (Gree 
elColo r: 
kSunwOldB 



n B a c K iBlueBack : 
ackSum : 



En t ryRan fe i 
real i 
char! 
. . 7 i 



if TableEn 
set_colo r 
ins_oolcr 
B a c h S u in : = 
if RedBac 
if GreertB 
if BlueBa 
if OldBac 
case Ba 



n 
1 

3 
(I 
5 
6 
7 
e ri d 



L 
L 
L 
L 
L 
L 
L 
L 
{c 



M e it u L i n 
OldBack 

s e t_c o 1 



end! {if 

set_co 1 o 

ndi {if T 



y = t 
o d e 1 ( 
able( 

i 5 t 

K<0.5 

< . 5 

um< >B 

S u iii o 

elCal 

elCal 

elCol 

elCol 

elCol 

elCol 

elCol 

elCol 

e Bac 

iii : = B a 
_tabl 



hen b e i i n {Background color} 
I)? {RGB? 

t R e d B a c K i G r e e n B a c k ) B 1 u e B a c k ) i 

{ 



{Set RGB values} 
Calculate the 



hen BackS u. m : = IX \ { 
then BackSum: =BackSum+2 i { / 

then BacKSui.i:=BackSuiii+l i { / 

a c k S u m then b e 3 i n {Color c h a n 4 e } 

f 

u it n y C h a r [ B 1 a c k ] i { \ 

unn/CharEBlue] ! { \ 

u n n / C h a r [ G r e e n ] i { \ 

unii'/CharECyaii ] ! { 

univ/CharERed] i { 

u n n y C h a r [ M a i e n t a ] i { / 

u n n y C h a r [ Y e 1 1 o w ] i { / 

u n n ■/ C h a r [ W h i t e ] i { / 



o r 
o r 
o r 
o r 
o r 
o r 
o r 
o r 
ksSum of} 



c k s u iii ; 

e( 1 .1-RedBack > 
1 - G r e e n B a c k 
1-BlueBack) 



\ background color 
in order to make 
contrasting text. 



Translate the 
\ RGB backs round 



/ 



s u iii to a 

c o in p 1 e iii e n t a r y 

text color. 



m o d e 1 ( 2 ) i 
leEnt ry=0} 



{print the men u line} 

{store for future comparisons} 

{ \ Make pen one } 

{ > c o m p 1 e m e n t a r y . } 

{/too, } 

{HSL} 



One point brought out by the preceding example is that the models can be mixed freely. There 
is nothing to prevent using the RGB model to set a gray background color and a black pen, and 
then using the HSL model to produce the rest of the palette. Use whatever is easiest for what 
you want to do. 

If you are interested in pursuing the color models, the RGES model is called a Color Cube and 
the HSL model is called the Color Cylinder. These models represent idealized color spaces and 
are discussed next. 



Color Graphics 109 



Color Spaces 

If you ask a broadcast engineer what the primary colors are, he will probably tell you "Red, 
green, and blue." If you ask a printer what the primary colors are, he will probably tell you 
"Cyan, magenta, and yellow." If you ask a physicist, he will probably smile and say "That's not 
the right question." Let's see if we can get enough information about color systems to ask the 
right question. 

Primaries and Color Cubes 

The reason for the confusion is that there are two sets of color primaries. Red, green and blue 
are additive primaries. Cyan, magenta, and yellow are subtractive primaries. Each of these sets 
of primaries can be used to construct what is referred to as a color cube. These are called the 
RGB color cube and the CMY color cube. 

Each of the color cubes can be used to describe a color space. Color spaces are mathematical 
abstractions which are convenient for scientific descriptions of color. This is because the color 
spaces provide a coordinate system for describing colors. Once you have a coordinate system, 
you can talk about and manipulate colors mathematically. 

In addition to the color cubes, other color coordinate systems exist. While there are many, we will 
only look at HSL Color Space, because it is one of the available color models on the Model 236 
Color Computer. First, the cubes. 
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The RGB Color Cube 

The RGB color cube describes an additive color system. In an additive color system, color is 
generated by mixing various colored light sources. (Color mixing is discussed in "Effective Use 
of Color," below.) 

The origin (0,0,0) of the RGB color cube is black. Increasing values of each of the additive 
primaries (Red, Green, and Blue) move towards white (the opposite corner of the cube.) The 
maximum for all three colors is white (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are 
generated by incrementing all three color axes equally. 




The RGB Color Space 

NOTE: This photo is a multiple exposure of Model 236 Color Computer CRT. 
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The CMY Color Cube 

The CMY color cube represents a subtractive color system. In a subtractive color system, colors 
are created by subtracting colors out of a pure white (containing all colors equally) light source. 
This most often occurs when light is reflected off of surfaces containing, or coated with, pig- 
ments. This happens in printing and painting, among other operations. 

The origin (0,0,0) for the CMY color cube is white. This represents all the colors in a perfect 
white light source being reflected by a white (reflecting all colors) surface. Increasing values of 
each of the subtractive primaries (Cyan, Magenta, and Yellow) move towards black (the oppo- 
site corner of the cube.) The maximum for all three colors is black (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are 
generated by incrementing all three color axes equally. While the CMY color model is not 
supported by the DGL, it is important to understand when you get to color hard copy. 




CMY Color Space 

NOTE: This photo is a multiple exposure of Model 236 Color Computer CRT. 
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The HSL Color Cylinder 

The color cubes are very useful for working with physical systems that are based on color 
primaries. They are not always intuitive, though. 

The HSL color cylinder resides in a cylindrical coordinate system. A cylindrical coordinate 
system is one in which a polar coordinate system representing the X-Y plane is combined with a 
Z-axis from a rectangular coordinate system. 

• The coordinates are normalized (range from through 1). 

• Hue (H) is the angular coordinate. 

• Saturation (S) is the radial coordinate. 

• Luminosity (L) is the altitude above the polar coordinate plane. 

The cylinder rests on a black plane (L = 0) and extends upward, with increasing altitude 
(Luminosity) representing increasing brightness. Whenever luminosity is at 0, the values of 
saturation and hue do not matter. 




HSL Color Cylinder 

NOTE: This photo is a multiple exposure of Model 236 Color Computer CRT. 

White is the center of the top of the cylinder (L = 1, S = 0).The center line of the cylinder (S = 0) is 
a line which connects the center of the black plane (L = 0, S = 0) with white (L = 1, S = 0) through a 
series of gray steps. (L from to 1, S = 0). Whenever saturation is 0, the value of hue does not 
matter. The outer edge of the cylinder (S = 1) represents fully saturated color. 
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HSL Color Specification 



Using the above drawing (HSL Color Specification,) hue is the angular coordinate, saturation is 
the radius, and luminosity is the altitude of the desired color. 
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Reality Intrudes 

It would be fantastic if that were all you needed to understand in order to use the color capabilities 
in DGL. Unfortunately, "Reality rears its ugly head." HP does not make a piece of hardware 
capable of supporting the system described above. The Model 236 Color Computer is as close as a 
Series 200 computer comes to the color modeling system described above, and it only approxi- 
mates it. 

However, now that the idealized color system has been described, we can tackle some real 
hardware that DGL supports. We will start with the simplest display device (a plotter) and work up 
to the most complex (the internal color-mapped frame buffer in a Model 236 Color Computer). 
Along the way, some of the hardware dependencies that make each device unique will be brought 
out. 



Plotters 

Numerous plotters are supported by DGL. All plotters support color as an attribute of graphics 
primitives to the extent it is possible with the number of pens available on the plotter. The SET_ 
COLOR and SET_PGN_COLOR procedures select the pen used used to draw the primitives. 
Using a color selector of will usually put whatever pen is in use away. Calls to SET-COLOR- 
TABLE are ignored when a plotter is specified as the display device. Plotters do not support the 
color modeling system. 
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Frame Buffers 

The internal displays on Series 200 computers all have bit-mapped graphics, as does the HP 
98627A. An area in memory called a frame buffer stores a binary description of each pixel 
location on the display. 

Frame Buffer Depth 

The number of bits available for describing each pixel is called the depth of the frame buffer. On 
all displays except the 98627A Color Output Interface and the Model 236 Color Computer, a 
single bit is used to describe each pixel location. A single bit allows each pixel to be on or off. 
This can be thought of as representing one of two colors (black or white, since the CRT is 
monochromatic). A one-bit frame buffer and the display it produces look something like this: 

One Bit 
Frame Buffer System 
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The 98627A has a three-bit frame buffer, allowing each pixel to be set to one of 8 colors (Black, 
Red, Green, Blue, Cyan, Magenta, Yellow, and White). Instead of storing ones and zeros (like a 
one-bit frame buffer), a number between and 7 can be stored. 



Th ree B i t 
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Frame Buffer Display 

Three Bit Frame Buffer 



The Model 236 Color Computer has a four-bit frame buffer. A four-bit frame buffer allows each 
pixel location to contain a number between and 15 (inclusive). Thus the Model 236 Color 
Computer can set a pixel to any of 16 different colors. The presence of a color map in the Model 
236 Color Computer complicates this somewhat, by giving you control over the colors that 
each of the 16 possible entries in a frame buffer can actually represent (this is a palette of 16 
colors out of a gamut of 4016 colors - see the color map description, below). For now, just think 
of the Model 236 Color Computer as having 16 colors that the user can define. 

Faking More Colors From a Frame Buffer 

If you have a one-bit frame buffer and need more colors, you can go up to a three- or four-bit 
frame buffer to solve the problem. If you already have a four-bit frame buffer and need more 
colors, the problem is more difficult to solve. The same solution that allows you to add more 
colors to the four-bit frame buffer also allows you to add more colors to a three-bit frame buffer, 
or even to a one-bit frame buffer. (O.K., it's actually shades of gray in a one-bit frame buffer.) 
The technique is called dithering, and is supported on all Series 200 frame buffers. 
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Dithering 

In early color systems which did not provide control of the intensity of individual pixels, 
dithering became a very popular method of increasing the number of shades available to the 
machine. In dithering, halftoning is used to create the impression of a larger palette than the 
system hardware actually supports. This is done by creating patterns of dots of the available 
colors which the eye will (hopefully) combine into a perceived color different from the colors 
used to produce the patterns. The effectiveness of this technique depends on the distance from 
the display, the patterns involved, and the eye of the beholder. For example, if you want to 
produce a half intensity red, you can turn on half the dots in an area, and it will look half-bright. 
The 50% pattern fools the eye quite effectively. 
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Half Tone Color Selection 

Thus, by reducing the effective resolution of the system, it is possible to provide a large number of 
shades of color. On Series 200 computers, this is done by imposing a grid of 4 x 4 squares on the 
CRT, that is, each of the squares is 4 pixels square. With a one bit frame buffer, it is possible to get 
17 shades of gray in the square (all pixels off, and 1 thru 16 pixels on). On a 3 bit frame buffer (the 
HP 98627) there are three colors available, providing 4913 (17 3 ) shades. For a 4 bit frame buffer, 
there would be 83521 (17 4 ) shades, if the colors represented by the frame buffer were fixed On the 
Model 236 Color Computer, however, it is possible to alter the colors represented by the frame 
buffer value, so the number of colors representable is variable - it could be larger or smaller than 
83521 (which is more than the number of dithering squares available on the display, anyway) 
depending on the contents of the color map. 
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Creating A Dithered Color 

The following discussion gets a little abstract, and it is not absolutely necessary to understand 
how dithering works to use it. It is interesting information, and can be useful knowledge if 
dithered areas don't do what you expect. 

A color vector is a directed line connecting two points in RGB color space. The dithering 
process tries to match a target vector by constructing a solution vector from colors available to 
the frame buffer. The actual dithered color to be produced will be 16 times the target vector, 
since 16 points in the dither area will be combined to create it. 

The color matching process requires sixteen steps. First, the target vector is compared to the 
vectors produced by all the colors in the color map. The one which is closest to the target vector 
is selected as the first component of the solution vector. The distance between the points in the 
RGB color space is used to determine how far apart the vectors are. 

The following process is then repeated 15 times: 

1. The target vector is added to itself to produce a new target vector. 

2. A trial solution vector is created for each color in the color map by adding the vector for 
the color map entry to the previous solution vector. The trial solution vector that is closest 
to the target vector is selected as the new solution vector. 

At this point, the target vector is 16 times the original target vector, and the solution vector 
consists of a summation of color vectors available to the frame buffer that produce, at each 
iteration, the vector closest to the target vector. 

If all this has left your head spinning, let's take a look at a simplified system to see how the 
process works. Our simplified system will be a two color system (to keep it a two dimensional 
problem) with a 2 x2 dither cell (which means we only have to look at four steps in the total 
process). 

We will use green and red (let's not get "tangled up in blues") for the two axes. There will be 
three colors available to the frame buffer - a unit green, a unit red, and a combination of a unit 
red and a unit green. The vectors each of these colors produce is drawn at the top of the "Color 
Vector Matching'' Diagram, shown below. At each step in the process, the target vector is 
labeled "T" and the solution vector is labeled "S." In addition, the test vectors that are not 
used are shown, with no labels on the endpoints. 
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Color Vector Matching 

In actuality, the entire set of colors available to the frame buffer is not necessarily used for 
creating a color. Before the color matching process is started, the colors available to the frame 
buffer are sorted into two groups; those within the target cube, and those outside the target 
cube. The target cube is the cube formed by using the origin of the RGB color space and a point 
representing 16 times the target vector as diagonal corners to form a cube. Going back to our 
two dimensional model, we will construct a target square for the system. For a vector near one 
of the axes, the unit vector on the other axes will be excluded from the solution set, since it lies 
outside the target square. 
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Once the colors have been selected for the solution vector, the colors are sorted by luminosity 
and filled into the following precedence matrix (the most luminous color is filled into the lowest 
numbered pixel): 
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The dither precedence matrix is actually tied to pixel locations on the CRT. The matrix is 
repeated 128 times across the CRT and 97.5 times from the top to the bottom of the CRT (for a 
512 by 390 display - just divide the number of pixels on each axis by 4 to get the number for 
other display sizes ). Areas to be filled are mapped against the fixed dithering pattern. All dither 
cells completely within an outline to be filled are turned on according to the precedence pattern. 
Cells which are only partially within the border are only partially enabled. If the area fill pattern 
calls for a pixel outside the boundary to be set, it will not be. 

There are problems with dithering: 

• The dithered colors are not necessarily accurate representations of the color specified. Looking 
at the "Color Vector Matching" Diagram shown above, the solution vector does not actually 
match the target vector, it just comes near it. This is highly dependent on the colors available to 
the frame buffer. A 4-by-4 dither cell with one full intensity green pixel does not look the same 
as the same cell filled with 1/15 green. 

• The dithered color selection tends to produce textures. In some cases, the textures overwhelm 
the shade produced. 

• The dithered colors are not stable if the color map is altered on a Model 236 Color Computer. 
(This is discussed in more detail under "Color Maps," below.) 

• The dithering operation produces anomalies when the area to be filled is thin. If it is less than 
four pixels wide or high, it cannot contain the entire dither cell and the results can be surprising 
for colors which turn on small portions of the cell. 
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If You Need More Colors 

If you have an application that requires more colors than are available to your frame buffer, the first 
thing to do is see if you can redefine it to use the colors available to the frame buffer. In many cases 
this is possible, and the higher quality of the frame buffer palette is worth a little checking to see if 
you can use it. 

If you have to use dithering, here are some hints for getting the best results: 

• Check the colors to see if you are going to get objectionable texturing. Sometimes relatively 
minor shifts in color definition can produce significant differences in the patterns used in 
dithering. 

• Remember - you can't draw lines with dithered colors. The DGL will automatically use the 
closest available color from the frame buffer. 

• If you are on a Model 236 Color Computer, make sure your color palette is correctly set up for 
dithering. 

On all frame buffers other than the Model 236 Color Computer, all the color table entries are 
potential dithered colors. On a Model 236 Color Computer, however, only the upper half of the 
color table (16 thru 31) are dithered colors. The lower half of the color table maps directly to the 
hardware color map. The color map is one of the most powerful graphic tools yet invented. It is 
described below, under "The Model 236 Color Computer Color System." 

Frame Buffer Contents 

Now that you understand frame buffers and dithering, it's possible to describe what is actually 
found in a frame buffer. At any given time, the values written to the frame buffer fall into four 
categories: 

• Background Value - Whenever CLEAFLDISPLAY is executed, all the pixel locations in the 
frame buffer are set to the current background color. The background color is described by 
entry in the color table. 

• Line Value - The SET_COLOR statement is used to determine the value written to the frame 
buffer for all lines drawn. This includes all lines (including characters created by GTEXT) and 
outlines (for polygons with the edge parameter true in the polygon style table). 

• Polygon Interiors - The SET_PGN_COLOR statement is used to specify the value written to 
the frame buffer for filling areas (for polygons with the fill attribute true in the polygon style 
table). 

• Dithered Colors - when an application uses more colors than the frame buffer can support 
directly (see "Frame Buffer Depth," below), dithering is used to create as close an approxima- 
tion of the color as can be done by mixing colors available to the frame buffer. Dithered colors 
can only be used for the background and for polygon interiors, not for lines. 
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The Model 236 Color Computer Color System 

The biggest benefit of the Model 236 Color Computer is that it makes experimenting with color so 
easy. With a bit-mapped frame buffer and a color map, it is easy to test out ideas before you use 
them. It is also possible to use the color map for simple animation effects and some just plain 
impressive images. 

It is possible to use the Model 236 Color Computer with the default color map. The color used will 
depend directly on the value in the frame buffer. This is fine if the work you are doing can be 
accomplished using the 16 colors supplied as the system defaults. This is often not the case, and this 
overlooks one of the most powerful features of the Model 236 Color Computer - the color map. 

The Color Map 

The color-mapped system uses the value in the frame buffer as an index into a color map. The color 
map contains a much larger description of the color to be used (12 bits in the Model 236 Color 
Computer) and, just as importantly, the color description used is indirect. Thus, the value in the 
frame buffer does not say "use color 12", but rather "use the color described by register number 
12". 
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Color Map 

The CRT refresh circuitry reads the value from the pixel location in the frame buffer, uses it to 
look up the color value in the color map, and displays that color at that pixel location on the 
CRT. Thus, it is possible to draw a picture with a given set of colors in the color map (a set of 
colors is called a palette) and then change palettes and produce a new picture by redefining the 
colors, rather than having to redraw the picture. (The binary numbers in the color map are 
created by the system. The user deals with normalized values, as described under "Color 
Specification.") 
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True User Definable Color 

The colors available are true user definable colors. The color can be changed on a pixel-by- 
pixel basis, so there are no restrictions on how the colors can be used (as there are with dithered 
shades, which can only be used for filling polygons). There are also no problems with texturing, 
as the color is not produced by mixing dot patterns. 

Retroactive Color Changes 

Another advantage of the color map colors comes from the indirect nature of the color map. 
Since the frame buffer contents only point to locations in the color map, it is possible to change 
the contents of the color map after an image has been created in the frame buffer, allowing 
"fine tuning" of the image after it has been created. 

If You Need More Than 16 Colors 

If you have an application that requires more than 16 colors, the first thing to do is see if you can 
redefine it to use 16 colors. In many cases this is possible, and the higher quality of the color 
mapped palette is worth a little checking to see if you can use it. 

The Model 236 Color Computer provides dithering for applications that require more shades than 
the 16 colors that are available at any single time with the color map. The upper half of the color 
table (entries 16 thru 31) provide access to dithered colors, although they will fill with a single pen if 
the color requested exists in the current color map. 

If you absolutely have to get at a larger palette, then load a palette optimized for dithering (optimiz- 
ing for dithering is described below) and stick with dithering. Don't try to mix color map redefini- 
tion and dithering - it will probably cause you a lot of grief. Especially, do not try to do interactive 
redefinition of the color map in a system that is also using dithering. 



124 Color Graphics 



Optimizing For Dithering 

The actual color palette you require determines the optimum color map values. Below are 
some plots of color matching on the simplified color system introduced under the discussion of 
dithering. Each plot is trying to match the same target vector, but using a different palette. The 
effect of various color maps on the distance between the target and solution vectors is striking. 
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Color Map Effect on Color Vector Matching 



Color Graphics 125 



It's obvious from the drawing above that the larger the color map, the closer the match to the 
target color, right? Well, it's obvious from that drawing, but let's take a look at a slightly different 
color to match, and see what happens. 
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Color Map Effect on Color Vector Matching - Part 2 



The point is, that the quality of color matching depends on both the contents of the color map 
and the color to be matched. 
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Resolution and Color Models 

The resolution available with the two color models depends on the hardware being used to 
generate the color. Resolution on devices that use dithering is complicated by the variation in 
quality of the colors produced by dithering. Resolution of the color map is easier to deal with, so 
let's see what's available. 

RGB Resolution 

The resolution of the RGB model is limited by the 4-bit digital to analog converters in the Model 
236 Color Computer graphics hardware. The 4-bit converter allows 16 states to exist for each of the 
CRT electron guns, so the resolution of each of the RGB parameters is 1/15, from thru 1. In fact, 
since the SET^COLOR_TABLE statement accepts real arguments, you can express the values as 
fractions, and let the computer convert to decimals. The following call would set the background to 
about 50% gray. 

SET_C0L0R_TABLE (0. 7/15 » 7/15, 7/15) 

HSL Resolution 

The resolution of the HSL model is not specified anywhere. This is because the resolution for the 
various parameters is not a fixed value. The resolution for any parameter of the HSL system is 
dependent on all three of the parameters. The resolution is not only changed by the other two 
parameters, but also by the magnitude of the parameter you are varying. 



Color Graphics 127 



Writing Modes and Color 

Since HP Series 200 frame buffer devices are bit mapped, it makes sense that various logical 
combinations of the bits in the frame buffer with the bits being added by a drawing operation 
should be possible. Since this is a highly device dependent operation, the various drawing modes 
are specified with calls to OUTPUT_ESC. Four drawing modes are available: 

• Dominant 

• Non-Dominant 

• Erase 

• Complement 

Three of these drawing modes have already been introduced (all but non-dominant) in Chapter 2. 
The meaning of the modes is slightly different for a color system than for monochromatic systems. 
The actual meaning of each of the modes is discussed below, but first, a slightly modified version of 
the DrawingMode procedure presented in Chapter 2 is listed below. The non-dominant drawing 
mode has been added to it. 

$paSe$ {* ********************************************************* ******####} 
procedure DrawinsMode (Mode : Drawin^ModeType ) ! 

I } 

{ This procedure selects drawing modes for a color-mapped CRT. } 

{ } 

const 

SetDrawin SMode= 1052! {mnemonic better than masfic number} 

i.i a r 

DrawMode: array C1..1] of integer! { \ This is all stuff that } 
Rarrav: array C1..1] of real! { > is needed by the } 

Error: integer! { / "outPut_esc" procedure. } 

besin {procedure "DrawinSMode" } 

case Mode of { \ } 



Dominant: DrawModeCl] 

NonDominant : DrawModeCl] 

Erase: DrawModeCl] 

Complement: DrawModeCl] 



=0i { \ Convert DrawinsMode enumerated } 

=1! { \ type into the appropriate } 

= 2! { / ualue for OUTPUT.ESC procedure. > 

:=3i { / > 

end! {case} {/ } 

o u tp u t_esc (SetDraui nsModetltO tDraw Mo deiRarray tError)! {set it} 

if ErrorOO then u ri teln ( 'Er ro r '»Error:0.' in procedure "DrawinsMode" . ' ) i 

end! {procedure "DrawinsMode" } 

The global TYPE declaration for DrawinsModeType must also be changed: 

DrawinSModeType = (Dominant* Erase* Complement. NonDominant)! 

"Draw" has been changed to "Dominant" to make it consistent with references to the non- 
dominant mode' 



128 Color Graphics 



Dominant Writing 

Dominant writing is the easiest to understand. When DGL has a new value to write to a location in 
the frame buffer, whatever is already in the frame buffer is overwritten, and thus lost. The system 
wakes up in the dominant mode. 

Non-Dominant Writing 

All the techniques described up until now have dealt with dominant writing to the frame buffer. In 
the dominant writing mode, the color selector is written directly to the color map, and overwrites 
whatever is currently in the frame buffer. In non-dominant writing, a bit-by-bit logical-or is per- 
formed on the contents of the frame buffer and the table entry selector value being written to the 
frame buffer. Thus, if color selector 1 is written to a buffer location that has already been written to 
with color selector 6, the buffer location will contain 7, but writing color selector 2 to a buffer 
location that has already been written to with color selector 6 will not change the contents. 

Erasing 

Erasing is a fairly simple concept in frame buffers that are a single bit deep. You just restore the 
background by setting the portion of the frame buffer you wish to erase to 0. The concept is a little 
more complex in frame buffers with more depth (such as the Model 236 Color Computer.) At the 
simplest level, you can simply set the contents of the frame buffer to the background color, using a 
call to CLEARJDISPLAY. 

It is also valuable to erase a single line. This can be done by setting the drawing mode to erase, and 
then re-drawing the line you wish to erase. In the erase mode, the erasure is done non-dominantly. 
This means that the bits which have a 1 value in the current color table entry selector are cleared to 
in the frame buffer entries that are modified by the line drawn in the erase mode. For example, if a 
table entry selector of 5 is used to erase the a line written with a table entry of 5, the frame buffer 
entries are returned to 0. If, however, the same line crosses a frame buffer entry of 7, the result is a 
value of 2 (only the bits set in 5 are cleared to by the operation. 

The only method that insures erasing a line is to select the dominant writing mode and draw over 
the line in the background color. This is done with a table entry selector of (for the frame buffer 
background) or a table entry selector equal to a "local background," if the line you are trying to 
erase is drawn across an area filled with a color other than the background color. 

Complementary Writing 

The complementary drawing mode is provided for operations (such as making your own cursor) 
that need to put an image on the screen that is always visible, but that can also be taken off the 
screen without damaging the background. On the Model 236 Color Computer, the concept of a 
complementary pen is extended to deal with the 4-bit values in the color map. In the non-dominant 
mode, the bit pattern represented by the table entry selector will be exclusively-ORed with the 
contents of the frame buffer. 

The complement occurs only for the bits which are one in the table entry selector. Thus an entry 
selector of -6 would complement bits 1 and 2 of the frame buffer. If a 1 exists in a frame buffer 
location and a line is drawn over it with entry selector 6, a 7 will now be in the location. Writing over 
the pixel with the same table entry selector will return it to a 1. 
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Making Sure Echoes Are Visible 

It is important to understand that the complementing is of the frame buffer, not the color map. 
You are responsible for making sure that the complimented frame buffer values are visible 
against one another. Be careful of placing the same color in two locations on the color map that 
are complements of one another. If you pick one of them as an echo color and then try to use 
the echo over an area filled with the other value, you will not be able to see it. 

Drawing Modes and the Frame Buffer 

Let's try to make things a little more concrete. We will look at a 9 x 9 section of a frame buffer, 
and draw some lines in the various modes, with different table entry selectors. Starting in the 
dominant mode, if we draw a cross with a table entry selector of 5, and then put a square with a 
table entry selector of 7 down on top of it, the following frame buffer results: 
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Dominant Writing to the Frame Buffer 
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If we then set the erase drawing mode and use a table entry selector of 5 to try to erase the 
horizontal element of the cross, we end up with two pixels of the horizontal element not erased, 
since the square had changed those locations to a 7. and the erase mode only erases the bits 
that are set to one in the table entry selector. The frame buffer ends up looking like this: 
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Erase Writing to the t Frame Buffer 



If you want to set a line to the background color, do it in dominant mode, with a table entry 
selector (in SET_COLOR) of 0. 
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Now, clear the frame buffer, and let's take a look at non-dominant writing. Non-dominant 
writing or's the contents of the frame buffer with the table entry selector. Let's put the cross and 
the square in the frame buffer, again, but this time we will use non-dominant mode, and a pen 
selector of 2 for the square. The cross will be written first, and then the square. The following 
frame buffer results: 
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Non-Dominant Writing to the Frame Buffer 

Now let's try some complementary writing to the frame buffer we got from the non-dominant 
writing example, above. We will draw over the horizontal line, using a color table entry selector 
of 7. The first time, we get the following: 
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If we do it again, we end up with this: 
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More Complimentary Writing to the Frame Buffer 

Notice that the first line is highly visible (assuming the color map contents do not produce the 
same colors for several entries in the frame buffer), but that the frame buffer is restored to it's 
original values after the second operation. This will not be true if a line is drawn through the 
area before the complimentary line is "undrawn. " Always undraw complimentary line before 
you try to add things to the frame buffer. 

Special Considerations 

The drawing modes mentioned above are only available on frame buffers. There are some 
special interactions with various primitives in the graphics system that need to be taken into 
consideration. 

Text 

When text is written in the complimentary mode, gaps will be produced in the characters, 
wherever the character intersects itself. This includes crossovers and endpoints of lines that 
overlap. Readability of the text can be heavily impacted by this. Make sure you want the result 
before putting GTEXT calls while the drawing mode is complimentary. 



Polygons 

Device independent polygons (INT_POLYGON and POLYGON) are written to the frame 
buffer using the current drawing mode. Device dependent polygons (INT_POLYGON_DD and 
POLYGON_DEV_DEP) ignore the drawing mode. Make sure you use the correct one if you 
want the drawing mode to work. 
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Effective Use of Color 

At the beginning of this chapter, it was pointed out that color is a very powerful tool, and that it 
is also easy to misuse. While it is beyond the scope of this book to provide an exhaustive guide 
to color use, a few comments can be made on using color effectively. 

This section will deal with seeing color first, to lay the groundwork. This is followed by a 
discussion on designing effective display images, since effective color use is almost impossible if 
the image is fundamentally unsound. 

After laying the groundwork, effective color use is discussed, from both the objective and 
subjective standpoints. 

Seeing Color 

The human eye responds to wavelengths of electromagnetic radiation from about 400 nm to 
about 700 nm (4000 to 7000 angstrom). We call this visible light. Visible light ranges from violet 
(400 nm) to red (700 nm). If all the frequencies of visible light are approximately equally mixed, 
the result is called white light. 

The eye's ability to discriminate color is reduced as the light level is reduced. This means that 
the variety of colors perceivable at low light levels is smaller than the variety at higher light 
levels. 

The eye is most sensitive to colors in the middle of the visible spectrum, a yellow-green color. 
The eye is least sensitive to the shorter wavelengths, which are at the blue end of the spectrum. 
Sensitivity to red is between that of yellow-green and blue. Two things seem to be associated 
with the sensitivity of the eye to various colors: 

• The eye can distinguish the widest range of colors in the yellow-green region, and the 
smallest variety of colors in the blue region. 

• The eye is most sensitive to detail in the yellow-green region. 

Why and how any of the above works is explained by color theorists. There are a large number 
of theories of color, and all of them work for explaining the specific phenomena the researchers 
were studying when they developed the theory, but none of them seem to be able to explain it 
all. The list of references at the end of this chapter include several on how vision works. 

It's All Subjective, Anyway 

One of the reasons that there are so many color theories is that no two people seem to perceive 
color the same way. In fact, the same person will many times perceive color differently at 
different times. In addition to the physiological and psychological variables in color perception, 
many environmental factors are important. Ambient lighting and surrounding color affect the 
perceived color tremendously. 

At this point, it will be well worth your time to compile and execute the program "COLOR", from 
the "DGLPRG:" disk. Try setting the background color to each of the pen colors, and see how 
different the foreground colors look against the different colors. In some cases, the lines even look 
slightly different from the filled rectangles of the same color. It turns out that the size of a color 
sample affects how it is interpreted, too. 
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The subjectivity of color, and the importance of background color in interpreting colors is the 
whole reason the program "COLOR" is provided. The color selector program lets you select 
the background color and provides both filled areas and lines due to the effect of the back- 
ground color and the size of the color sample on the perception of color. The only way to insure 
a set of colors works well together is to try it and see. 

Mixing Colors 

If two distinct audio tones are played simultaneously, you will hear both of them. If the same 
area is illuminated by two or more different colors of light, you will not perceive the original 
colors of light, but rather a single color, and it will be not be one of the original colors. What you 
will perceive is called the dominant wavelength. 

The CRT uses three different colored phosphors (Red, Green, and Blue) and mixes various 
intensities of the resulting lights to produce one of 4096 colors at any point on the CRT. What 
you actually see is the resulting dominant wavelength. This is an additive color system. 

Mixing with pigments is a little different. Pigments in inks and paints absorb light. The idea with 
pigments is to subtract all but the color you want out of a white light source. This is a subtractive 
color system, and the primary colors are cyan, magenta, and yellow. 

The different mechanisms for mixing additive and subtractive colors make it difficult to repro- 
duce images created with additive colors (like a CRT) in a subtractive medium (like a plotted or 
printed page.) Photographing the CRT is the best method currently available for color hard 
copy. This problem is discussed in more depth at the end of this chapter under "Color Hard 
Copy." 

Designing Displays 

While the design of displays is not really a color topic, a few words about it are in order before 
we get into the effective use of color. If the design of an image is fundamentally unsound, all the 
good color usage in the world is not going to help it. 

Whenever you put an image on a CRT, you have created a graphic design. The design will 
either be a good one or a bad one. and if you know this, you have automatically increased your 
chances of creating a good design. If you are going to be creating a lot of displays, either in a lot 
of programs or in a single large program, you need a graphic designer. Many people have a 
natural talent for graphics - an ability to look at an image and tell whether it is graphically sound 
or not. If you don't have that talent (or feel you could use some help) there are two courses of 
action that might be productive for you; you can hire a graphic designer or become one. 
Renting one is expensive and becoming one is time-consuming, but if you are trying to com- 
municate with users, you have to understand graphic design. While getting a degree in graphic 
arts may be impractical for some programmers, a course or two in the field will prove very 
useful if you do very much programming. 

While this book can't turn you into a graphic designer, a few simple hints may help you on your 
next program. 

The most important thing in communicating with people is to keep it simple. Don't try to 
communicate the total sum of human knowledge in a single image. It is much more effective to 
have several screens of information that a user can call up as required, than a single screen so 
complicated that the user can't find what he wants on it. 
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Try to redundantly encode everything, in case one of the encoding methods fails. For example, 
if you color code information, use positional coding (the location of the information tells 
something about the nature of the information) too. Remember, the person reading the screen 
is probably nor the person who wrote the program, and even if you are writing the program for 
yourself, you may forget how it works by the next time you try to use it. 

Another important thing to remember is to be consistent. Always try to place the same type of 
information in the same area of the CRT and use the same encoding methods for similar 
messages. Don't using flashing to encode important information on one display and then use 
inverse video for the same thing seven displays into the program. 

Objective Color Use 

In spite of the subjectivity of color, there are some fairly objective things that you should know 
about color. Some of the things that can be done with color don't depend heavily on subjective 
interpretation. 

Color Blindness 

A fact of life that it is dangerous to ignore is that some people are color-blind. The most 
common form of color blindness is red-green color blindness (the inability to distinguish red and 
green). Avoid encoding information using red-green discrimination, or these people will have 
difficulty using the system. 

Subjective Color Use 

Choosing appropriate colors for a program to use can be tricky, and constitutes a significant 
part of the job of a good graphic designer. In the final analysis, it is a largely a matter of trying 
combinations until you come up with a set of colors that look good together. If your application 
is complex, it will be well worth your while to consult with a graphic designer about the color 
scheme and layout of information displays for your program. There are, however, a few fairly 
fundamental things to remember in designing your programs. 

Choosing Colors 

First, and probably most important, is to use color sparingly. Color always has a communication 
value and using it when it carries no specific information adds noise to the communication. 

Use some method for selecting the colors - one of the best is a color wheel, similar to the one shown 
in the section on the HSL color model. 

• Try varying the luminosity or saturation of a color and its complement (opposite it on the 
color wheel). 

• Try color triplets (three equally-spaced colors) and other small sets of colors equally- 
spaced around the color wheel. 

• Pastels (less than fully-saturated colors) tend not to clash. 

Give careful attention to your background color. Remember that a filled area can become the 
background color for a portion of the image on the CRT. 

• If you are using a small number of colors, use the complement of one of them for the 
background. 

• If you are using a large number of colors, use a gray background. 
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If two colors are not harmonious, a thin black border between them can help. 

Use subtle changes (such as varying the saturation or luminosity of a hue) for differentiating 
subtly different messages and major changes (such as large changes in the hue of saturated 
colors) to convey major differences. 

Most of all, think and experiment. The final criteria is "Does this display communicate the 
message?". 

Psychological Color Temperature 

Temperatures ranging from cool to hot are associated with colors ranging from blue to red (ice 
blue - fire red). This is actually the opposite of physical reality, where the higher the tempera- 
ture, the shorter the wavelength (blue is a black body radiation of about 7600° K while red is 
about 3200° K) but this is what people perceive as the relation between temperature and color. 
This is probably because people very seldom deal with the high temperatures and associate the 
blues with non-temperature related natural phenomena (oceans and ice). If you are trying to 
portray temperature, electrical field strength, stress, or some other continuous physical system, 
using the psychological color temperature can serve as a useful starting point for color coding 
the values. 

Cultural Conventions 

When trying to use color for communicating, cultural conventions are useful. Red is widely 
associated with danger in most western cultures, giving extra emphasis to a flashing red indica- 
tor. By the same token, a flashing green indicator would be less effective for communicating an 
out of range value in a system. In any specific application, it is important to understand the color 
associations that are common for the group using the application. 



Color Graphics 137 



Reproducing Color Graphics 

Color Gamuts 

The range of colors a physical system can represent is called its color gamut. Color gamuts are 
important when you want to convert between different physical systems, because the source 
system may be able to produce colors the destination system cannot reproduce. An exhaustive 
treatment of color gamuts is beyond the scope of this book. However, here are some rules of 
thumb: 

• The color gamuts for CRTs and photographic film are not the same, but are fairly close. If 
you are lucky, you can photograph the CRT and catch it on film. It may take more than 
one exposure, so be careful and bracket everything with several exposures. 

• The color gamut for printing is significantly smaller than that of either photographic film or 
of a CRT. The fact that you have a picture of a CRT does not mean you can hand it to a 
printer and get a faithful reproduction of it. 

• The color gamut of a plotter is much smaller than that of a CRT. You have to create images 
with the limitations of a plotter in mind if you intend to reproduce them on a plotter (see 
"Plotting and the CRT," below.) 

The different color gamuts available are not a problem unless you forget the differences and try 
to act like all physical systems have the same gamut. Think ahead if you have to reproduce 
images - it will save a lot a trouble. 

Color Hard Copy 

Color hard copy represents a translation between color systems, and many of the problems in color 
hard copy arise from the fact that the color gamuts available to the CRT and the hard copy device 
are different. 

There are two basic ways to get a color hard copy of what is displayed on the Model 236 Color 
Computer: 

• Take a picture of the CRT. 

• Re-run the program that generated the image with an external plotter selected as the display 
device. 

The first method is the easiest and can capture (usually) whatever is on the CRT, regardless of what 
colors are used (see "Color Gamuts," above.) The second requires setting up the Model 236 Color 
Computer color map to match the pens in a plotter, and is not as likely to capture what you see on 
the screen. Both methods are discussed below. 



138 Color Graphics 



Photographing the CRT 

Photography is an art. not a science. Capturing images off a CRT is relatively straightforward, 
but sometimes unpredictable due to the different color gamuts available for film and the CRT. 
The following guidelines will provide a starting point. If your images are not "typical" (whatever 
that means) you may have to go back and re-photograph some of them. Many of the CRT 
images in this book were captured using these guidelines. 

• Use ISO 64 Color film. (Most of the color photos in this book were taken on Kodak 
Ektachrome 64'.) 

• Set up your equipment in a room that can be darkened. It will have to be darkened for the 
one-second exposure. 

• Use a telephoto lens (the longer the better). This minimizes the effects of the curvature of 
the CRT. 

• Use a tripod. 

• Darken the room and take a one-second exposure. 

• Bracket the aperture around f5.6. (One stop above and below.) 

Plotting and the CRT 

There are two basic reasons the CRT is hard to capture on a plotter. 

• The CRT is an additive color device and a plotter is a subtractive color device. 

• The color gamut of the CRT is much larger than that of the plotter. 

The conversion from additive to subtractive colors is not a huge problem if the plot is a simple 
line drawing with few intersections and area fills. If the plot is complex, especially with lots of 
intersections and overlapping filled areas, the plot is much less likely to capture the display 
image accurately. 

A possible technique described below purposely limits the color gamut of the CRT to give the 
plotter some chance of capturing it. 

To set up the color map and plotter to match one another: 

• Set your background to white. 

• Set up pens matching the color map colors in slots 1 through 8 in the same order they are 
presented in the default color map listed under "Default Colors." 

• Use color table entry selectors from 8 through 15 in your drawings. 

• Run the program with the color mapped CRT as the display device, modifying it as 
necessary to produce the image you want on the CRT. 

• Re-run the program with the plotter as the display device. You will need to subtract 8 from 
the color table entry selectors to properly select the pens on the plotter. 

While it is possible to get some idea of the plot that will be produced on the plotter, don't be 
surprised if they don't look exactly the same. Colors on a CRT are different in source and form 
from colors on a plotter, as described under "Seeing Color," above. 
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Color References 

The following references deal with color and vision. Texts that serve as useful introductions to 
the topic are starred. 

* Cornsweet, T. , Visual Perception. New York: Academic Press, 1970 

Farrell, R. J. and Booth, J. M., Design Handbook for Imagery Interpretation Equipment 
(AD/A-025453) Seattle: Boeing Aerospace Co., 1975 

Graham, C. H., (Ed.) Vision and Visual Perception New York: J. Wiley & sons, Inc., 1965 

* Hurvich, L. M., Color Vision: An introduction. Sunderland, MA: Sinauer Assoc, 1980 

Judd, D. B., Contributions to Color Science (Edited by D. MacAdam; 545) NBS special 
publication Washington: U. S. Government Printing Office, 1979 

* Rose, A., Vision: human and electronic. New York: Plenum, 1973 
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Listings of Example Programs 



Appendix 



A 



Directory 

AxesGrid: 

BAR_KNOB: 

BAR_KNOB2: 

CharCell: 

COLOR: 

CsizeProg: 

DataPoint: 

DrawMdPrg: 

FillProg: 

FillGraph: 

GstorProg: 

IsoProg: 

JustProg: 

LdirProg: 

LOCATOR: 

LogPlot: 

MarkrProg: 

PLineProg: 

PolyProg: 

SinAspect: 

SinAxesl: 

SinAxes2: 

SinClip: 

SinLabell: 

SinLabel2: 

SinLabel3: 

SinLine: 

SinViewpt: 

SinWindow: 



Shows visual impact of axes and grids. 

Shows interactivity with one degree of freedom. 

Shows interactivity with two degrees of freedom. 

Relationship between characters and characters cells. 

Demonstrates the color map. 

Shows how to select character size. 

Supplies the data for all programs whose names start with "Sin". 

How to specify drawing modes (draw, erase, complement). 

Shows how to do hatched and dithered area fills. 

Does a broken-line chart with the area beneath the curve shaded. 

Storing and retrieving graphic images. 

Isotropic scaling. 

Label justification. 

How to specify label direction. 

Demonstrates interactive drawing with many types of graphics cursors. 

Shows how to make logarithmic axes. 

Uses markers to highlight data points on a curve. 

Demonstrates the POLYLINE procedure. 

Using POLYGON procedure. 

Defining aspect ratio of plotting device. 

Undipped axes. 

Labelled, clipped axes. 

Clipped axes. 

Single-sized, horizontal letters. 

Labels with sizes and directions specified. 

Bold main title. 

No viewport, no window, not much information. 

Data displayed inside framed viewport. 

Data mapped into user window. 
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AxesGrid 



pro 3 ram AxesGri 
import d 3 1 _ 1 1 b t 
const 

CrtAddr= 
Controll«lord = 
type 

RoundType= 
va r 

Ratio: 

U i r t X max » V i r 

LeftEdSe • Ri3 

BottomEd3e . T 

C 1 i p X it) i n i C 1 i 

C 1 i p Y iii i n f C 1 i 

ErrorReturn: 

$pa3e$ {**#*** 

procedure Frame 

{ 



d ( o u t p u t ) i 
d 3 1 _ i n i i 



3! 



{Set Graphics routines} 

{address of internal CRT} 
{device control! for CRT} 



( U p > Down* Near)i 



{use d b •/ f u notion R o u n d 2 } 



t Y m 
htE 
opE 
p X m 
p Y iii 



real i 
real i 
real i 
real i 
real i 
real i 

i n t e 3 e r i {variable for initialization outcome} 

**#**#***#***#*#####*#####*##*##******#**##*#*#**#**#*##*♦*} 



ax : 
d3e 
die 
ax : 
ax : 



{ 

{ 

c o n 5 1 

1*1 i n d o w L 
t '/ p e 

L i m i 1 r 

L i m i t T y 

var 

Pac: 

I a r r a y : 

W i n d o ui : 

Error: 

b e 3 i n 

ini_ws ( Wi 

if Er ro r = 

m o v e ( 1*1 i 

1 i n e ( 1*1 i 

1 i n e ( 1*1 i 

1 i n e ( 1*1 i 

1 i n e ( 1*1 i 

end {Err 

else writ 

end! { p r 

*pa3e$ { 

procedure 

{ 

{ This p 
{ soft c 
{ 



This procedure draws a frame around the current w i n d o w limits. 



imits= 450! 



{mnemonic better than m a 3 i c n u m b e r } 



de r = 

pe = 



n d o w L l 
then 
ndowCX 
n d o w [ X 
ndowEX 
n d o u [ X 
n d o w [ X 
or=0?} 
eln( 'E 
o c e d u r 
*##*#* 
CIipL 



( Xm i n » Xmax > Ym i n > Ymax ) ! 
array [ L i m i 1 r d e r ] of real! 

packed array [ 1 . . 1 ] of c h a r i 

array [ 1 . . 1 ] of i n t e 3 e r i 
L i m i t T v p e i 
i n t e 3 e r i 

m i t s » 1 iH i P a c > I a r r a y (Window i 

b e 3 i n 
m in] 1 1*1 i n d o w [ Y m i n ] ) i 
m i n ] 1 1*1 i n d o w C Y m ax]) 
max] i N i n d o w C Y m ax]) 
max] » 1*1 i n d o w C Y m in]) 
m in] 1 1*1 i n d o w [ Y m i n ] ) 



{ \ These are the sundries 
{ \ needed by the call to 
{ / the DGL procedure 



{ / ' 
{bod y 
Error) i 

{ m o v e 
{draw 
{ d r a w 
{ d raw 
{ d raw 



mi-ws . 

of p r o c e d.u r e 



'F rame" } 



to lower left corner} 

to upper left corner} 

to upper risht corner} 

to lower risht corner} 

to lower left corner} 



rror 'iError:0>' occurred in "Frame"')! 
e "Frame"} {return} 

**♦#***##*******#♦***#**#****♦***#***'****#**'*♦#**##*•****##♦*#} 
imi t ( Xmin » Xmax t Ymini Ymax: real)! 



} 

rocedure defines the four 3lobal variables which specify where the } 
lip limits are. } 

-} 
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b e i i n 

if Xmin<Xmax then beSin i \ > 

CI ipXmin : = Xmin ! <■ \ Force the minimum soft } 

ClipXmax:=Xmax i { \ clip limit in X to be } 

end { \ the smaller of the two) 

elsebesin { / X values passed into > 

ClipXmin:=Xmax i { / theprocedure. } 

CI ipXmax : =Xmin i i / > 

end! i I > 

if Ymin<Ymax then beiin i \ > 

CI ipYmin : =Ymin i { \ Force the minimum soft } 

ClipYmax :=Ymax i { \ clip limit in Y to be } 

end { \ the smaller of the two} 

else be Sin { / Y values passed into } 

CI ipYmin : =Ymax 5 i I the procedure. } 

CI ipYmax :=Ymin i { / } 

end! { / > 

end! 

$pase$ {#**##*****#***###*#****##*##**#*****#****#****#*##**##****#****#♦*#*} 
procedure ClipDraw(Xi) Yl i X2 1 Y2: real)! 

{ } 

{ This procedure takes the end points of a line » and clips it. The soft } 
{ clip limits are the real Slobal variables ClipXmint ClipXmaxi ClipYmin. > 
{ and ClipYmax. These may be defined through the procedure ClipLimit. } 
{ } 

label 

1 ; 
type 

Edses= (Left (Ri Sht (Top (Bottom) i {possible edSes to cross} 

u 1 f B o u n d s = set of E d i e s i {set of edses crossed} 

var 

Dut iQutl »0ut2:0utQfBounds i 

X» Y: real i 
{ } 

procedure Code(Xt Y: real! var Out: OutOf Bounds) i 

besin {nested procedure "Code"} 

Out:=[]i {null set} 

if x<ClipXmin then Out:=[left] {off left edse?} 

else if x>ClipXmax then Out : =[ ri Sht ] ! {off risht edife?} 

if '/"(ClipYmin then Out : =0ut + [bottom] {off the bottom?} 

else if y>ClipYmax then Out : =Out + [ top] i {off the top?} 

end! {nested procedure "Code"} 

{ } 

beSin {body of procedure "CI ipDraw" } 

Code (XI (Yl tOutl ) i {figure status of point 1} 

Code(X2(Y2 (Dut2) i {fisrure status of point 2} 

while (QutlOCl) or (0ut2<>Cl) do beSin {loop while either point out of ranSe} 

if ( u 1 1 * u 1 2 ) < > [ ] then Soto 1 ! {if intersection non-null* no line} 
if OutlOtl then 0ut:=0utl 

else 0ut:=0ut2i {Out is the non-empty one} 

if left in Out then beSin {it crosses the left edSe} 

y:=Yl+(Y2-Yl)#(ClipXmin-Xl)/(X2-Xl) KadJust value of y appropriately} 

x:=ClipXmin! {new x is left edSe} 
end {left in Out?} 

else if risht in Out then besfin {it crosses risht edSe} 

y:=Yl + (Y2-Yl )*(Clip)!max-Xl )/(X2-Xl ) KadJust value of y appropriately} 

x : =C1 ipXmax i {new x is risht edSe} 
end {risht in Out?} 
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else if bottom in Out then be 3 in {it crosses the bottom edse} 

x:=Xl + (!!2-!<l )* ( CI i pYmin-Yl ) /(Y2-Y1 ) Had Just ualue of x appropriately} 
v : = C 1 i p Y in in! { n e u y is bottom e d i e } 

end { b o 1 1 o m i n Out?} 
else if top in Out then besin {it crosses the top e d S e } 

x: =Xl + <X2-)-'l ) * ( C 1 i p Y rti a x - Y 1 ) /(Y2-Y1 ) 5-CadJust ualue of x appropriately} 
y : =C1 ipYmax i {new y is top edie} 

end! {top in Out?} 
if 0ut = 0utl then be Sin 

X 1 : = x i Y 1 : = y 5 C o d e ( x > y 1 u 1 1 ) i {redefine first end point} 
end {0ut=0utl?} 
else b e $ i n 

X 2 : = x i Y2;=yi Code ( x »y »0ut2 ) ! {redefine second end point} 
end! {else b e i i n } 
end! {while} 

m o u e ( x 1 t y 1 ) i {if we Set to this pointt the line...} 

Iine(x2)/2)i { . . . i s compl ete 1 y u i s i b le > so d raw i t } 

1: end! {procedure "ClipDraw"} {return} 
$paSe$ {*##♦##***#**#*#**#*#*##**#♦****##*#**##*#+**»******#♦**♦*♦******#***} 

function Round2(N» M: real! Mode: RoundType): real! 

{ > 

{ This function rounds "N" to the nearest "M"t accord in 3 to "Mode". This } 
{ function works only when the argument is in the ranSe of MI NINT , . MAXINT . } 
{ } 

const 

epsilon= IE- 10! {roundoff error fudie factor} 

uar 

Rounded: real! {temporary holding area} 

NeSatiue: boolean! {flaS: "It is negative?"} 

besin {body of "Round2"} 

NeSat i ue : = (N<0 . ) i {is the number negative?} 

if N e S a t i i.i e then b e $ i n 

N : = a b s ( N ) i {work with a positiue number} 

if Mode=L)p then Mode:=Down {if number is nesatiuei ...} 

else if Mode=Down then Mode:=L)p! {...reuerse up and down} 
e n d ! 

case Mode of {should we round the number...} 

Down: Rounded : =t rune (N/M ) *M i {...left on the number line?} 
Up: b e $ i n 

R o u n d e d : = N / M ! { . . . r i S h t on the number line?} 

if abs (Rounded- round ( Rounded ) ) >epsi 1 on then 

R o un d e d : = ( t r un c ( R o un d e d ) + i . ) *M 
else 

Rounded : = t rune ( Rounded )*M ! 
end ! 
Near: Rounde d : = t rune ( N/M+M*0 , 5 ) *M i {...to the nearest multiple?} 
end! {case} 

if Nesative then Rounded : —Rounded ! {reinstate the sisn} 
RoundZ: =Rounded ! {assign to function name} 

end! {function "RoundZ"} 
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*pase$ {****#**##*#*»*♦*##******###*##♦#*##*##»*#*#♦##*#*#*****#*##*######*#} 
procedure XaxisCl ip(Spacin«f > Location: real i Major: inteSeri 
MaJsizetMinsize: real)! 

i } 

{ This procedure draws an X-axis at any intersection point on the plotting" } 
{ surface. Parameters are as follows: > 

{ Spacing: The distance between tick marks on the axis. } 

{ Location: The Y-value of the X-axis. } 

{ Major: The number of tick marks to se before drawing a major tick } 
{ mark. If MaJor=5. ever/ fifth tick mark will be major. } 
{ MaJsize: The length, in world units, of the major tick marks. > 
{ Minsize: The length, in world units, of the minor tick marks. } 
{ } 

war 

X: real! 

SemiMaJsize: real i 

SemiMinsize: real! 

Counter: integer! {keeps track of when to do major ticks} 

begin {body of procedure "XaxisClip"} 

SemiMaJsize;=MaJSize*0.5! 
SemiMinsize : =MinSiz e*0. 5! 

Counter:=0! {start with a major tick} 

CI ipDraw(ClipXmin (Location .ClipXmax .Location) i 

X:=Round2(Cl ipXmin iSpacinJ*MaJo r (Down ) i {round to next lower major} 
while XOClipXmax do besin 

if Counter=0 then 

ClipDrawfX.Location-SemiMaJsizetXtLocation+SemiMaJsize) 

else 

ClipDrawfXtLocation-SemiMinsizetX.Location+SemiMinsize)! 

Counte r : = (Counte r+1 ) mod Major! 

X:=X+Spacingi 
end! {while} 

endi {procedure "XaxisClip"} 

*page$ {#**#**#******#**#*****#*******###***###*»*#*******#*###*#**#*#**♦###} 
procedure YaxisCl ip(SpacinS > Location: real! Major: in te ale r 5 

MaJsize t Minsize: real ) i 



This procedure draws an Y-axis at any intersection point on the plotting } 

surface. Parameters are as follows: } 

Spacins': The distance between tick marks on the axis. } 

Location: The X- value of the Y-axis. } 

Major: The number of tick marks to ge before drawing a major tick } 

mark. If MaJor=5. every fifth tick mark will be major. } 

MaJsize: The length, in world units, of the major tick marks. } 

Minsize: The length, in world units* of the minor tick marks. } 



ar 

Y: real! 

SemiMinsize: real! 

SemiMaJsize : real ! 

Counter: integer! {keeps track of when to do major ticks} 

begin {body of procedure "YaxisClip"} 

SemiMaJsize :=MaJsize#0. 5! 
SemiMinsize:=Minsize*0.5! 

Counter:=Oi {start with a major tick} 

ClipDraw (Location .ClipYmin .Location tClipYmax) i 
Y: =Round2(Cl i pYmin .Spac inS*MaJo r .Down ) ! {round to next lower major} 



146 Listings of Example Programs 



while Y < = C 1 1 p Y max do b e 9 l n 
if Connte r = the n 

C 1 1 p D r a w i L o c a 1 1 o n - S e m i M a j s l z e . Y » L o c a 1 1 o n + S e m i M a j s i z e . Y ) 

e l.se 

CI l pD raw ( Locat i on-Semirlms i ze .Y .Locat i on+Semirlins l ze »Y ) i 

C o u n t e r : = ( C o u n t e r + 1 ) mod Major! 

Y:=Y+SpacinS ! 
endi {while) 

end! {procedure "YaxisClip"} 

$pa3e$ {#*###***#*#***#**##***#*#*##*#***#**###*##*##*#*♦####**######♦##*###} 
procedure G r l d ( X s p a c i n 4 i Y s p a c l n 4 t X 1 o c Y > Y 1 o c X : r e a 1 i X m a j o r » Y m a J o r : integer! 

X m i n s l z e i Y m l n s i z e : real)! 

{ } 

{ This procedure draws a and on the plotting surface » with user-definable > 
{ minor tick size. Parameters are as follows; } 

{ X s p a c i n i : The distance between tick marks on the X axis. } 

{ Y s p a c i n 4 : The distance between tick marks on the Y axis. } 

{ X 1 o c Y : The X-ualue of the Y-axis. } 

{ Y 1 o c X : T h e Y - u a 1 u e o f t h e X - a x i s . } 

{ X m i n i X m a x : The left and r i 4 h t ends of the X-axis f respectively. } 
{ X in a J o r > The number of tick marks to 4 e before d r a w i n 4 a major tick } 

{ Y in a J o r : mark. If M a j o r = 5 > every fifth tick mart; will be major, } 
{ X m i n s i z e : The 1 e n 4 t h » in world units* of the X minor tick marks. } 
{ Y iii i n 5 i z e : The 1 e n 4 t h > in world units* of the Y minor tick marks. } 

{ } 

i.i a r 

X i Y : real! 

X start » Y start: real i 

X s e m i M i n s l z e : real! 

Y s e m i M i n s i z e : real! 

Counter: i n t e 4 e r i 
b e 4 i n (body of procedure "Grid"} 

X s e m i M i n s i z e : = X m l n s i z e ♦ . 5 i 
YsemiMms i ze : = Yin ins i ze*0 . 5 i 

Xs t a rt : =Ro undZ ( CI i pXmi n tXspac in S*Xma Jo r .Down ) i {round to next lower major} 
Ys t a rt : =Round2 ( CI i pYmi n i Yspac in S*Yma Jo r (Down ) i {round to next lower major} 
{===== Draw uertical major ticks ============================================} 

X : = X s t a r t i 

while X < = C 1 i p X max do b e 4 l n 

CI i pD raw ( X .CI i pYmin *X .CI i pYiiiax ) i 

X : = X + X 5 p a c i n 4 * X m a j o r i 
e n d i 
{===== Draw horizontal major ticks ===============================-===========} 

Y : = Y s t a r t i 

while Y < = C 1 i p Y m a x do b e 4 1 n 

C 1 1 p D r a w ( C 1 i p X iii i n » Y i C 1 1 p X m a x » Y ) i 

Y : =Y+Yspac in 3*Yma Jo r i 
e n d i 
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{===== Draw vertical minor ticks ============================================} 

X:=Xstart ! 
Counte r: =0 ! 

while K < = C 1 i p K max do beSin 
if Counte r<>0 then be Sin 
Y:=Ystart i 
while Y< =C1 ipYmax do beSin 

ClipDrawfXiY-YSemiMinsize >)< tY + YSemiMinsi ze ) i 
Y: =Y+YspacinS 5 
endi {while Y< = C 1 ipYmax} 
end! {counte r<>0?} 
Counter: = (Counter+1 ) mod Xmajori 
X:=X+XspacinSi 
end! {while} 
{===== Draw horizontal minor ticKs ==========================================} 

Y:=Ystart i 
Counte r:=0 i 

while Y<=ClipYmax do beSin 
if Counte r< >0 then be Sin 
X:=Xstart! 
while X<=Clip>'max do beSin 

GlipDraw(X-XSemiMinsize iY iX+XSemiMinsize >Y) i 
X: =X+XspacinS i 
end! {while X<=ClipXmax> 
end! { counte r<>0?> 
Counte r: = ( Counte r+1 ) mod Ymajori 
Y:=Y+YspacinS! 
end! {while} 

end! {procedure "Grid"} 

$pase$ {#*##**#**#*******#**#**#•»**##**##♦#*###**#**♦**#***#****#*♦*##**#*##> 
be Sin {pro 3 ram "AxesGrid"} 

Sraphics_init ! 

displav_init (CrtAdd r iCont rolWo rd >Er ro rReturn ) ! 
if Erro rReturn=0 then beSin 

{=== Do proSram setup =====================================================} 

Rat i o : =51 1 /389 i 
5et_aspect (Ratio tl ) ! 
if R a t i o > 1 then b e 3 i n 
Mi rtXmax : = 1 i 
l ,'i rtYmax : = 1 /Ratio ! 
e n d 
else b e i i n 

'.' i r t X in a x : = R a t i o i 
Vi rtYmax : = 1 i 
end ! 
{=== Upper left viewport ==================================================} 

Lef tEd fle : =0 5 

RiShtEdSe: =0,4B*Vi rtXmax ! 

BottomEdSe :=0.52*Ui rtYmax ! 

TopEdSe: = Vi rtYmax i 

set_i.iiewport(LeftEdSetRiShtEdSetBottomEdSe)TopEdSe)! 

set_window(0 »80 iO >4Q) i 

Frame! 

CI ipLimit (0 >B0 >0 »40) i 

XaxisClip( 1 iO »5 »2 »1 ) ! 

YaxisClip( 1 iO »5 »2>1 ) ! 
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{ = = = Upper risht viewport = = = = = = = = = = = = = = = = = = = = = = = = = = = 

Lef tEdsle: =0 , 52*Mi rtXmax i 

R 1 3 h t E d 3 e : = i r t X m a k i 

BottomEd3e:=0.52*Ui rtYmax i 

T o p E d 3 e : = i r t Y m a x i 

set_viewport(LeftEds'e .RisfhtEdse .Bott omEd 3e .TopEdse ) ! 

set_window(0 .80 i0 > ^ ) > 

Frame i 

ClipLimit (0 .80 i0 .40) ! 

Grid (5 »5 .0 .0.4 .4 .1 .0.8) \ 

{=== Lower left viewport ============================ 

Lef tEd<Je:=0 ! 

RishtEdSe :=0.4B*0i rtXmax i 

BottomEd3e:=Oi 

TopEdFJe:=0.48*Oi rtYmax i 

set_viewport(LeftEdSe iRishtEdSe .Bo t t omEd 3e .TopEdSe ) i 

set_window(0 .BO tO .40) i 

Frame i 

ClipLimit (0 .80 .0 .40) i 

Grid (2 .1 .0 .0 » 10 1 10 .0,001 .0.001 ) i 

{ = = = Lower r i =1 h t viewport = = = = = = = = = = = = = = = = = = = = = = = = = = = 

Lef tEdSe:=0.52*Ui rtXmax i ! 

R i tl h t E d * e : = i r t X m a x i 

BottomEdSe: =0 i 

TopEd*-e:=0.48*Vi rtYmax i i 

set_v iewpo rt (Lef tEd 3e .RiShtEdSe iBottoraEd-te (TopEdie ) ! 

set_wiridow(0 .BO .0 .40) i 

Frame i 

ClipLimit (0 .80 .0 .40) 

XaxisClipl l .0 .5 .2.1) 

YaxisCl ip( 1 .0 .5 .2 .1 ) 

XaxisCl ip( 1 .40 .5.2.1); 

YaxisClipf 1 .80 .5 .2 .1 ) ! 

GriddO .10 .0 .0.1 .1 .2 .2) 5 
end! {Erro rReturn=0?} 
3raphic5_termi 
end. 



{program "AxesGrid"} 
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BAR_KNOB 



Sucsd (debits* 

prosfram Test (Keyboard .output ) i 

import d3l_i.iars»dJl_types>dsl_libtdJl_iti [ ii 

type 



States= 
DrawMode= 
const 
FS = 
BS = 
US = 
LF = 
CR = 

= 

01 = 

Unde rline = 
Ind_off= 
I n y _ n = 
MinBarY= 
MaxBarY= 
MinBarX= 
MaxBarX= 
I n o D e 1 1 a = 
var 

Erro r.num: 

I > T e m p I n t : 

Level .LastLeuel : 

Delta: 

CharWidth .CharHeiSht : 

Charaote r : 

Done: 

Keyboard: 

TenipSt rini: 



(On .Off) i 

(Draw .Erase .ComptNonDom) i 

chr(28) i 
ohr(8) i 
chr<31) 
chr(lO) 
chr(13) 
<Q' ; 

'»i' i 

chr(132) ! 
chr(12B) i 
chr(129> ! 
Oi 

100 i 
ISO! 
220 i 
O.li 



inteie r . 
intetfe r i 
real i 
real i 
real i 
char i 
boolean i 
text i 

Gst rin$255! 

*pa«re$ {**#*###**#*#***##***#♦*#*#*##**#*##*#*#*#***##**##*****##*#♦♦****##*} 
procedure GraphicsDisplay (State :States -COn/Of f > ) ! 
const 

GraphicsDisp= 1050! 
var 

Error: in teSer! 
SwitchArraysintederi 
Dummy : real ! 
besin {procedure GraphicsDisplay} 

case State of 

On:SwitchArray : =1 i 
Off :SwitchArray:=0! 
end! {case State of} 

outPut_esc(GraphicsDisp.l .O.SwitchArray .Dummy .Error) ! 
if Error <> the n 

writeln ('Error '.Error:l.' encountered in GraphicsDisplay')! 
end! {procedure GraphicsDisplay} 
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$pa3e$ {####****#**********##**********#************************************} 

procedure Al phaDi spI ay ( State :States -CDn/Of f >) ? 

const 

AlphaDisp=1051 i 
i.i a r 

Error: inteseri 

SwitchAr ray : inteSe r i 

D u m m v : real ! 
besin {procedure AlphaDi s p 1 ay } 

case State of 

n : S ui i t c h A r r a v : = 1 i 

Of f :SwitchArrav :=0i 
end! {case State of} 

outPut_esc (AlphaDi sp »1 tO (Switch Array tDuiiuiiy tErro r) i 
if Error < > the n 

write In ('Error '.Error:lt' encountered in Al phaD i s p 1 ay ' ) I 
end! { p ro ced u re Al ph aDi spI ay } 

$paSe$ {******♦***###*####**************************************************} 



b e * i n 

Level : = ! 

L a s t L e u e 1 : = L e u e 1 i 

Sraphics_init i 

d i s p 1 a y _ i n i t ( 3 » i E r r o r _N urn ) i 

if Error_Num=0 then beiin 
AlphaDisplayfOff ) i 
G r a p h i c s D i s p 1 a y ( n ) i 
set_aspect (51 1 ,389) i 
set_window(0 »400 t-30 1 120) i 
se t_co 1 o r ( 1 ) i 
CharWidth:=(0. 035*400) i 
CharHeiSht : = (0.05*150) i 



{Main Prosfram} 

{current height of bar> 

{previous heisht of bar} 

{initialize the Graphics system} 

{which output device?} 

{output device initialization OK?} 

{turn off alpha display} 

{turn on Graphics display} 

{use whole screen} 

{scale the window for the data} 

{color nunibe r 1 : white} 

{char width: 3.51 of screen width} 

{char heisht: 51 of screen heisht} 



{move to lower left corner...} 
{..♦draw to upper left corner...} 
{...draw to upper riSht corner...} 
{...draw to lower left corner...} 
{...and draw to lower left corner.} 



) i 



:/l*CharHeiSht: 



set_char_size (CharWidth t CharHeiSht)! {install character size} 

{ Outline the Bar --- 

move (MinBarX-0.5 tMiriBarY-0.5 ) i 
line(MinBarX-0.5 .MaxBa rY+O . 5 ) i 
line(MaxBarX + 0.5 tMaxBa rY+0.5 ) i 
line(MaxBarX+0,5»MinBarY-0.5) i 
1 ine(MinBarX-0.5 >MinBa rY-0 . 5 ) i 

{ Label the bar (numeric labels) 

for I : = to 10 do b e 4 i n 

s t rw r i t e ( T e m pS t r i n 4 > 1 > T e m p I n t > I * 1 : 3 > ' - 

move ( 179-st rl en ( TempSt r in S ) *Ch a rWi d t h .1*10-0, 

3 1 e x t ( T e m p S t r i n 4 ) i 
end! {for I : = 1 to 10 } 

{ Label the bar (textual labels) 

move (221 i 80-CharHei sht/2) ! 
stext ( '-Hi Jh Normal ' ) i 
move (221 , SO-CharHei 4ht 12 ) i 
4X ex t ( ' -Low Normal')? 

{ Hour about some instructions 

CharWidth : = (0.02*400) ; {char width: 27, of screen width} 

CharHeiSht : = (0.035*150) ! {char heiiJht: 3,57, of screen height} 

set_char_s lze (CharWidth » CharHeiiht)! {install character size} 

m o v e ( t 5 ) i 

TempSt rins: = 'Use the Knob to'+CR + LFi 

4 1 e x t ( T e m p S t r i n 4 ) \ 

TempSt rins: = 'Adjust the val ue . '+CR+LF i 

Stext ( TempSt rin 3 ) i 
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Te 
St 
Te 
St 
Te 
St 
Te 
{- 
Ch 
Ch 
se 
re 



mpSt rin 
ext (Te 
mpSt rin 
ext (Te 
mpSt rin 
ext (Te 
mpSt rin 

Set 

arWidth 
arHei Sh 
t_char_ 
peat 
read ( Ke 
Delta:= 
case Ch 

FS 

BS 

LF 

US 

0»Q1: 
othe rwi 
end! { c 
if Delt 

set_c 

while 
Leu 

111 o v 

1 in 

end 

end { i 

else be 

if (D 

set 

rep 

m 

1 

L 

unt 

end! 
e n d ! 

{ H 

set.col 
st ruri t 
m o u e ( M i 

MinBa 
stext(T 
set.col 
st rwri t 
iii o v e ( M 

MinBa 
Stext (T 
L a s t L e v 
til Dan 
aphicsD 
phaDisp 
s p 1 a y _ t 



Stri 
= 'SH 
Stri 
= 'sp 
Stri 
= "i 
Soo 
(0)0 
= ( . 
ze(C 



+CR+LF ; 

nS) i 

IFT with the Knob '+CR 

nS) ; 

eeds it up, ' + CR+LF! 

nS) i 



+LF! 



d character size 

35*400) i 
05*150) i 
harWidth > CharHeiSht ) 



y b o a 
Oi 

a rac 

Del 

Del 

Del 

Del 

Don 

se 

ase 

a>0 

o 1 o r 

(Le 

el: = 

e(Mi 

e(Ma 

{whi 

f (D 

Sin 

elta 

_col 

eat 

oue ( 

i n e ( 

evel 

il ( 

{if 



rd (Character)! 

ter of 

ta: = IncDe 1 ta i 

ta:=-IncDeltai 

ta:=10*IncDeltai 

ta:=-10*IncDeltai 

e:=TRUE! 

or d (Character)} 

then b e i i n 

(1) i 

veKLastLevel+De 1 ta) and 

Level+IncDeltai 

nBarX .Level ) i 

x B a r X i L e u e 1 ) ! 

le (LeveKLastLevel ) and 

elta>0) and (LeveKlOO) } 



{char width: 3,51 of screen width} 
{char heisht: 57, of screen heisht} 
{install character size} 

{Set character without echo to screen} 

{start by as sum ins no motion} 

{what's the character?} 

{risht arrow?} 

{left arrow (backspace)?} 

{down arrow?} 

{up arrow?} 

{or Quit?} 

{if none of the above* i S n o r e it} 

{GoinS Up} 

{we want to draw lines} 

(LeveKMaxBarY-IncDelta) do beSin 

{new top of bar} 

{move to left e d S e . . . } 

{•.(and draw to risht edSe} 

(LeveKMaxBarY)} 



;0) and (Level >=0.5*IncD 
o r ( ) i 

MinBarX . Level ) i 
MaxBarX t Level ) i 
:=Level-IncDeltai 
LeveK=LastLevel+Delta) 
(Delta<0) and (Level>0) 



{GoinS Down} 
elta) then beSin 
{we want to erase lines} 

{move to the left edSe...} 
{...and draw to the risht edSe} 
{new top of bar} 

or (LeveK=MinBarY) 

} 



u n 

Gr 

Al 

di 
end ! 

Sraphics-termi 
end. 



ow 

o r ( 

e(T 

nBa 

rY- 

eitip 

o r( 

e(T 

inB 

rY- 

emp 

el: 

e i 

i sp 

lay 

e rm 



a b o u 

0) i 
empS 
rX+( 
2*Ch 
Stri 

1) i 
empS 
arX+ 
2*Ch 
Stri 

Lev 



t some numbers? } 



trinStl (Tempi nt tLastL 
MaxBarX-MinBarX)/2-st 
arHeiSht ) i 
nS) i 

trinStl tTempI nt .Level 

(MaxBarX-MinBarX)/2-s 

arHeiSht) i 

nS) i 

eli 



lav (Off! 

(On) i 

i 



{we want to erase lines} 
e v e 1 : 5 : 1 ) i {convert level to chars} 
rlen(TempSt rinS)*CharWidth/2 . 

{erase the old number} 

{we want to erase lines} 
:5:1) i 
trlen(TempStrinS)*CharWidth/2. 

{write the new} 
{remember the old number} 
{repeat until user hits [Q]} 
{turn off Sraphics display} 
{turn on alpha display} 
{clean up loose ends} 

{terminate the Sraphics pacKaSe} 
{main pros ram} 
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BAR_KNOB2 



*ucsd tdebus* 

program T e s 1 1 K e y b o a r d t o u t p u t ) ! 

1 in p o r t d s 1 _ v a r s < d i 1 _ t y p e s > d g 1 _ I i b 

type 



d 4 1 _ i n i i 



DrawMode= 
BarX = 
States= 
const 
FS = 
BS = 
UB = 
LF = 
CR = 

= 

01 = 

Unde r 1 ine = 
I n d _ o f f = 
Inv_0n= 
MinBarY= 
M a x B a r Y = 
MinBarX= 
MaxBarX= 
IncDelta= 

Erro r_nuni : 

I i T e iii p I n t : 

L e u e 1 iLastLeuel: 

Bar: 

Delta: 

Charklidth .CharHe i sht 

Characte r : 

Done: 

h e y b o a r d : 

TenipStrinS: 



( D r aw t E r a 5 e t C o iii p t N o ri D o m ) ! 
a r r a y [ 1 . . 5 ] of i n t e g e r i 
(On »0ff) ; 

chr(28) i 
chr(8) ! 
chr(31) i 
c h r ( 1 ) ! 
chr( 13) i 
'0' i 

' H ' ! 

chr(132) i 

c h r ( 1 2 B ) i 

chr(129) i 

0! 

100 i 

BarXCaO » 1 3 (220 » 3 1 »400] ; 

BarXCBO (170(2(30 (350 (4401 ! 

. 1 i 



integers 
integer! 

array [ 1 . . 5 ] of real! 

integer ? 

real i 

real i 

char i 

boolean! 

text ! 

GstrinS255! 

$page$ {*##**+**##*** ************************************************ **#**#*} 
procedure SetDrawMode ( Mode : DrawMode)! 
const 



1052! 



{mnemonic better than magic number} 



l n t e ie r i 
integer! 
integer! 



{ \ All this stuff is needed 
{ by the DGL procedure 
{ / OUTPUT.ESC, 
{procedure SetDrawMode} 



OpSe 1 ecto r = 
v a r 

I n t A r r a y : 
RealArrav: 
Error: 
b e 3 i n 
case Mode of 

Draw: IntArray 
N o n D o in : IntArray 
Erase: IntArray 
C o m p : IntArray 
end! {case Mode of} 

outPut.esctQpSelectord (0 > IntArray (RealArrav iE rro r) ! 
end! {procedure SetDrawMode} 



\ 



Magic numbers for the 
four drawing modes. 



/ 
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*pa3e$ {#*##**####*******###**#*##»********#***#**********#*****************> 

procedure Graph icsDisplay (State : States {On/Off})! 

const 

GraphicsDisp= 1050 i {mnemonic better than masic number} 

war 

Error: inteseri { \ All this stuff is needed } 

SwitchArray: integer! { > by the DGL procedure } 

Dummy: real! { / QUTPUT_ESC, } 

beiin {procedure GraphicsDisplay } 

case State of 

On: SwitchArray : = 1 i {l = ont and.,.} 

Off: SwitchArray:=Oi {0=off.} 

end! {case State of} 

outPut_esc(GraphicsDispti)Ot SwitchArray (Dummy .Error) i 
if ErrorOO then 

writelnf 'Error 'tError:l»' encountered in GraphicsDisplay')! 
end! {procedure GraphicsDisplay} 

$pase* {#♦**##**#****#♦#**#**#*##**##*#*#*♦*#********#*####*****#*******#***} 
procedure AlphaDisplay (State: States {On/Off})! 
const 

AlphaDisp= 1051! {mnemonic better than maSic number} 

ua r 

Error: integer! i \ All this stuff is needed } 

SwitchArray: inteSer! { > by the DGL procedure } 

Dummy: real! { / OUTPUT.ESC, } 

beJin {procedure AlphaDisplay} 

case State of 

On: SwitchArray : = 1 i {l = on» and...} 

Off: SwitchArray:=0> {0=off.} 

endi {case State of} 

outPut_esc( AlphaDisp tl (0 (SwitchArray tDummy (Error) i 
if ErrorOO then 

writelnf 'Error 'iError:l»' encountered in AlphaDisplay ') i 
end! {procedure AlphaDisplay} 

*pasfe* {**#***#*#**##****##***#***#*****#***#***#********#*##*#*************} 
procedure ClearlndtBar: integer)! 

be Sin {procedure Clearlnd} 

SetDrawMode (Erase) i 

movefMinBarXCBar] iMinBarY- 1 .3*CharHei Sht ) i 
HnetMaxBarXCBar] (MinBarY-1.3*CharHeiiht) i 
end! {procedure Clearlnd} 

*pase$ {#*###****##**#***»*#*#***#*********************♦********************} 
procedure SetInd(Bar: integer)! 

beSin {procedure Setlnd } 

SetDrawMode(Draw) ! 

move(MinBarX[Bar] (MinBarY-1 .3*CharHei iht ) i 
line(MaxBarX[Bar] (MinBarY-1.3*CharHeiiht) i 
end! {procedure Setlnd } 
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$pase$ {************************************************■**♦****#**#*#♦*##♦**} 
procedure U p d a t e V a 1 u e ( B a r : i n t e ?f e r ) i 
i.i a r 

LastCharWidth tLastCharHeiSht: real i 
b e 3 i n {procedure Update Ualue) 

LastCha rWidth : =Cha rWidth i {store old character width} 

LastCharHei 3h t : =CharHei Sht i {store old character height} 

CharWidth: = (0.025*512) 5 {new char width: 2,51 of screen width) 

CharHei 3ht :=(0. 045*150) i {new char width: 2,57,, of screen heiJht) 

set_char_size ( CharWidth tCharHei 3ht ) ! {install the character size) 

{ Erase the old } 

SetDrawMode (Erase ) i {draw with black lines) 

TempSt rinsf: = ' ' i {null out any old Malue) 

s t r w r i t e ( T e m p S t r i n S 1 1 ) T e w p I n t i L a s t L e M e 1 C B a r ] : 5 : 1 ) i {convert to s t r i n i ) 

m o u e (MinBarXCBa r ] + ( MaxBa r)<[ Ba r ] -MinBa rXCBa rl ) 12- {move to risht place) 

st rl en (TempSt r i n S ) #Ch a rkli d t h/2 »Mi nBa rY-2 , 5*Cha rHe i <Jh t ) \ 
Stext (TempSt rinsO i {label the string) 

{ Write the new } 

SetDrawMode (D raw ) j {draw with white lines) 

TempSt rinS: = ' ' i {null out any old ualue) 

5 1 r w r i t e ( T e m p S t r l n 3 1 1 i T e iii p I n t t L e u e 1 [ B a r ] : 5 : 1 ) i {convert to s t r l n S } 

i!iove(MinBarX[Bar] + (MaxBarX[Bar]-MinBarX[Bar] ) 12- {move to risht place) 

st rlen(TempSt ring- ) *CharWidt h/2 »MinBarY-2.5*CharHeiSht ) i 
Stext (TempSt rins) i {label the string) 

{ Reinstate the old character size } 

CharWidth : =Las tCha rW i d t h i {restore old character width) 

CharHei Sht : =LastCharHei Sht i {restore old character height) 

set_char_size (CharWidth iCharHei Sht ) i {install old character size) 
e n d i {procedure U p d a t e U a 1 u e ) 

$pa3e$ {***************************************#**#****#*#**##**+##*#****#**} 
besin {Main Program) 

Sraphics_initi {initialize the Sraphics system} 
d i spl ay_in i t ( 3 (0 iE r ro r_Nuiii ) i {which output device?) 
if Error_Num=0 then beSin {output device initialization OK?) 
AlphaDispla/ (Off) i {turn the alpha display off) 
GraphicsDisplay (On ) ! {turn the Graphics display on) 
set_aspect (51 1 ,389) i {use the whole screen) 
set_window(0 ,51 1 »-50 ,1 10) i {scale the window for the data) 
set_color(l)i {draw with white) 
SetDrawMode (Draw) i {dominant drawing mode) 
CharWidth: = (0,020*400) i {char width: TL of screen width) 
CharHeijfht : = (0,035*150) i {char height: 3.57, of screen height) 
set_cha r_s ize ( Cha rWidth tCha rHei 3ht ) ! {install the character size) 
{ Make the Bars --} 
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for Bar:=l to 5 do beSin 

{ Initialize the levels } 

L e v e 1 [ B a r ] : = i {all bars at ley el zero} 

LastLevel[Bar]:=Leuel[Bar]i {old u a 1 u e 5 » too} 

{ Outline the Bar > 

iiiove(MinBarX[Bar]-l »MinBarY-( 1B0/389) ) i {move to lower left corner.,,) 

linedlinBarXCBarl-l tMaxBarY+( 160/389) ) i {...draw to upper left,..} 

linedlaxBarXCBarl + l tl"laxBarY+( 160/389) ) i {...draw to upper ri3ht,..} 

linedlaxBarXEBarl + l tMinBarY- ( 160/389) ) i {...draw to lower ri3ht...} 

linedlinBarXCBarl-l tMinBarY- ( 160/389) ) i {...and draw to lower left.} 

{ Label the bar } 

TempSt rin3:= ' ' i {null out any old value} 

st rwri tedeinpSt rinS il iTempInt » 'Bar 'tBar:l)i {convert to strin3} 

move(MinBarX[Bar]+(MaxBarX[Bar]-MinBarX[Bar])/2- {move to risfht place} 

st rl en (TempSt rin 3) *Cha rWidth/2 tMinBarY- 1 , 25*CharHei 3ht ) i 
3text(TempStrinS)i {label the text} 

{ Put numbers alongside the bars } 

for I:=0 to 10 do beSin 

TempSt rinS: ='' ! {null out any old value} 

st rwrite (TempSt rin3 »1 iTempInt tl*10:3 > '-') i {convert to strini} 

move (MinBarXEBarl-st rlen (TempSt rin3)*CharWidth > {move to ri3ht place} 

1*10-0. 24*CharHeiSht) ! 
3text (TempSt rin3) i {label the text} 

end! {for I : = 1 to 10 } 

UpdateUalue (Bar) i {modify the bar} 

end! {for} 

{ How about some instructions } 

CharWidth:=(0. 02*511 ) i {char width: 21 of screen width} 

CharHei3ht:=(0. 035*160) i {char heisht: 3.57, of screen hei3ht} 

set_char_size (CharWidth tCharHei 3ht ) i {install character size} 

move(0 t-30) i 

TempSt rin 3: = 'Use Number Keys to select a bar.'+CR+LFi 

next ( TempSt rin3) ! 

TempStrin3:=' '+CR+LF! 

Jtext (TempSt rin 3) i 

TempSt rins:= 'Use the Knob to adjust the val ue . ' + CR+LF i 

next (TempSt rinS) i 

TempStrin3: = 'SHIFT speeds up the knob . ' + CR+LF i 

next (TempSt rin 3) i 

{ Start the interactivity } 

Bar:=3i {which bar active at first?} 

SetInd(Bar)i {tell the pro 3 ram so} 

repeat 

read( Keyboard tCharacte r) i {read character with no echo to screen} 

Delta:=0! {assume no motion until told otherwise} 

case Charac te r of 

FS: Delta: =IncDelta 5 {risht arrow?} 

BS: Delta: =-IncDelta ! {left arrow (or backspace)?} 

LF: Delta: =10*IncDelta ! {down arrow?} 

US: Delta:=-10*IncDelta; {up arrow?} 

Oi01:Done:=true! {or Quit?} 

' 1 ' . . ' 5 ' : b e 3 i n 

ClearInd(Bar)i {deactivate old bar} 

Bar: =o rd (Character) -o rd ( '0 ') ! {determine new bar's number} 
Setlnd(Bar)! {activate new bar} 

end i 
otherwise { if none of the above t do nothin 3} 

end i {case} 
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if (Delta>0) then beSin {GoinS Up} 

SetDrawflode(Draw) i {draw with white lines) 

while ( L e v e 1 E B a r ] < L a s t L e v e 1 [ B a r ] + D e 1 1 a ) 

and (LevelEBarKMaxBarY-IncDeltaJdo beam 
L e v e 1 C B a r ] : = L e v e 1 [ B a r ] + I n c D e 1 1 a i {calculate new level} 
move (MinBarXEBar] .Level [Bar] ) i {move to the left end...} 
line(MaxBarXEBar] tLevelEBar] ) ! {...and draw to the nsht edse} 
end {while} 
end {if} 
else be si n {delta<0} 

if (DeltaCO) and ( Leve 1 [Bar] > = 0. 5*IncDel ta> then beSin {GoinS Down} 
SetDrawMode(Erase) i {draw with black lines} 

repeat 

movefMinBarXEBar] tLevelEBar] ) i {move to left edse,..} 
linetMaxBarXCBar] iLevelEBar] ) ! {...and draw to risht edse} 
LevelEBar] : =Leue 1 EBa r ] - IncDe 1 1 a ! {decrement level} 
until (LevelEBar]<=LastLevelEBar]+Delta) or (Level EBarK=MinBa rY) 
end! {if} 
end! {else} 

{ How about some numbers? > 

UpdateValue (Bar) i {chanSe the bar's numeric label} 

LastLevelEBar] :=LevelEBar] i t {remember the current value} 
until Done! {pressed EQ] yet 7 } 

GraphicsDisplay (Of f ) ! {turn off Jraphics display} 

AlphaDisplay (On) i {turn on alpha display} 

displa-/_te rin i {c 1 ean up loose ends} 

e n d i 

Sraph ics-te rm i {terminate the Sraphics system} 

end. {Main Pros ram) 
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CharCell 



program CharCe 
import d«fl_lib 
const 
Crt = 

Control 1 
type 

Lor«Type= 
Str255= 
war 
Error: 
I , X 1 Y ; 
*page$ {***** 
begin 

graphics_init i 
di5Play_init (C 
if Error=0 the 
set-aspect (5 
move( -1 »-l ) ! 
set -wind ow(- 
set_char_siz 
m o v e ( 1 1 2 1 ) i 
gtext ( 'Size 
for X:=0 to 
for Y:=0 t 
in o v e ( X - 
line(X+0 
move(X+0 
line(X-0 
end! {for 
end! {for x 
for I:=0 to 

wove ( 1*9 »0 
end ! 

set_char_si 

in o v e ( 1 1 4 ) i 

stext( 'Gby i ' 

end! {Error=0 

Sraphics.te rmi 

end. {pros ram 



1 1 ( output ) i 
* d s 1 _ i n q i 



3! 
Oi 

l.,9i 
strinSE2551 i 



{program name same as file name} 
{access the necessary procedures) 

{deuice address of graphics raster} 
{device control word! ignored for CRT} 



(the valid values to pass the 
{for the procedure "Glabel"} 



inte Se 

intese 

#**#*#♦***##***# 



rt (Control tError 
n b e S i n 
11 »3B9) ; 

1 i n e ( - i . 1 ) ! 1 
2,39,-7.5.22.5) i 
e(i ,1) \ 



'Lor? 1 '} 



oK} 



r! {display.init return variable! 

r! {loop control variables} 

♦♦a********************************************} 

{body of program "CharCell"} 

{initialize graphics library} 
) i {initialize CRT} 

{if no error occurred...} 

{use the whole screen} 
i n e ( 1 1 1 ) i 1 i n e ( 1 » - 1 ) i 1 i n e ( - 1 t - 1 ) i 

{define appropriate window} 



\ 



of Character in Character Cell')! 
36 do begin 
o 15 do beSin 
.1 .y+0.1) 
.1 tY-0.1) 
.1 tY+0.1) 
.1 tY-0.1) 
y} 
} 

3 do begin 
) i line ( 1*9 .15) i 



Do main label . 



/ 



Draw the four 9x15 
character cells. Make 
a f rame around each , 
and an X at every 
point. 



/ 



{draw a frame around each char cell} 
1 ine ( 1*9+9 » 15) i 1 ine ( 1*9+9 ,0) ! line ( 1*9 id) i 



zeO.15) i 

) I 
?} 

"CharCell"} 



{big characters} 
{go to starting position} 
{label some characters} 
{end of conditional code} 
{terminate graphics library} 
{end of program} 



158 Listings of Example Programs 



COLOR 



$ u c s d i d e 
pros ram 

import d 
type 

Colors 

M o d e s = 

Ent ryR 

Funny A 
const 

FS = 

BS = 

US = 

LF = 

CR = 

C = 

Cl = 

E = 

El = 

H = 

Hl = 

L = 

Ll = 

= 

01 = 

s= 

Sl = 

Displa 
Underl 
Ind_of 
In v_Qn 
F u n n y C 



bu«f$ 

Test( keyboard > o u t p u t ) i 

i 1 _ u a r s > d $ 1 _ t y p e s i d J 1 _ 1 i b » d 3 1 _ p o 1 y i d i 1 _ i n q i 



a n J e = 
r r a y = 



y _ C o n t = 
i ri e = 
f = 

ha r = 



(Red i Y e 1 low (Green ».C y an t B 1 u e i M a i e n t a (White (Black ) i 

(Hue (Sat tLum (Table (Copyl (CopyZ) i 

-1. .16? 

array [Colors] of char! {array for alpha color} 



hr(28) 

hr(8) i 

hr(31) 

h r ( 1 ) 

hr(13) 

C 

c' 

E' 

e' 

H' 

h' 

L' 

1 ' 

0' 

q' 

S' 

s ' 

050 i 

h r( 132 

hr(128 

h r ( 129 

unn y A r 



{ r i 3 h t arrow) 

{left arrow or backspace} 

{up arrow} 

{do w n a r r o w } 

{carriage return} 

{ \ 



\ 



\ 



\ These are the valid 
/ user responses. 



/ 



/ 



{mnemonic better than m a 3 i c n u m b e r } 
> I {alpha enhancement: underlining} 
) i {turn enhancements off} 
) i {alpha enhancement: inverse video} 
ray[chr(139) »ch r( 137) i i\ 

chr(13G) (ChrdilO! i { \ 

chr(142) (chr<143> , { / 

chr(ldl) (chr(13B)l i {/ 



Array for } 

holding the } 

alpha-color } 

controllers } 
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*pase$ 
var 
Erro 
I .Te 
OpAr 
Xarr 
Yfil 
Delt 
HueV 
SatU 
LumV 
G ree 
Blue 
Red',' 
Hue- 
Sat- 
Luiit- 
Tab- 
Char 
Done 
kevb 
Temp 
Mode 
Curs 
Copy 
Last 
Tabl 
X_Lo 
Y_Lo 
Int_ 
Real 
RedB 
Labe 
Back 
$pase$ 
p r o c e d 
b e S i n 
writel 
4 o t o x y 
wri te ( 
write ( 
write! 
wri te ( 
write ( 
writel 
end i 



{**#*♦##*##*###*#*#**###**##***#**##*#*#**#**#**#***#*##*###*###*####> 



r_num : 

mplnt : 

ra/ : 

ay i Y a r r a y 

1 _ a r r a y : 

a: 

al: 

al: 

al: 

nVal: 

Mai: 

al: 

i n d : 

i n d i 

i n d : 

ind : 

acte r : 



oard : 

St rins: 

tLastMode : 

o rColor: 

-Source : 

TableEnt ry : 

eEnt ry : 

c : 

c : 

a: 

_A: 

acktGreenBacKfBl 

IColor: 

Sum (OldBackSum: 

{****###**#*#* 
ure MenuLine! 

ndabelColo r) i 
(0,0) i 

'Colo r Selector: 
Underline»'S'»In 
U n d e r 1 i n e • ' L ' , I n 
'table ' tUnderli 
Underline , 'C tin 
n(Unde rl ine i '0' > 
{procedure MenuL 



i n t e s e r i 
i n t e i e r i 
arrayCl . 

a r r a y [ 1 , 
real ! 
a r r a y [ . 
a r r a y [ . 
a r r a y [ . 
a r r a y [ . 
a r r a y E . 
a r r a y [ . 
char! 
char! 
char! 
char ! 
char i 
boolean i 
text i 
GstrinsZ 
Modes ! 
Ent ryRan 
Ent ryRan 
Ent ryRan 
Ent ryRan 
a r r a y [ . 
a r r a y [ . 
i n t e i e r i 
real i 
u e B a c K : 
char i 
. . 7 i 



{return variable} 

{temporary variables} 
.51 of Sshortinti 

{locations of points } 
451 of real! {same points* but filled} 



.15] of real i 

. 15] of real i 

.15] of real! 

,15] of real! 

. 15] of real i 

,15] of real! 
{ \ 



{ \ For each of the 
{ \ sixteen pens* we 
{ \ need to know the 
{ / HSL values as 
{ / well as the RGB 

{ / values. 

Various indicators. 



55 i 



{ 

{ / 

{and another} 

{utility variable} 

{are we through yet?} 

{ n o n - e c h o i n i input} 

{temporary hoi dins place for text} 



Je i 

Se i 

He i 

Je i 

.15] of inteSeri 

.15] of integer i 



real i 



**#***##**#**#***#*#*♦####*#*#*#*###*#*##*###} 



{procedure MenuLine} 

{write in appropriate color} 

{So to upper left corner of the screen} 

' (Underline ,'H' .Ind.of f , 'ue . ' ) ! 

d_off)'atu ratio n i ' ) 5 

d_of f , 'uminosi tv i ' ) i 

ne > '£' »Ind_of f , 'nt ry ,')\ 

d _ o f f . ' o p y c o 1 .o r i ' ) i 

I n d _ o f f » 'uit ' ) i 

ine} 
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$pa3e$ 
p r o c e d u 
b b 3 i n 
w r i t e 1 n 
case Mo 
Hue: 
Sat : 
L u m : 
Table 
C o p y 1 
end! { 
3 o t o x y ( 
u r i te 1 n 
w r i t e 1 n 
w r i t e 1 n 
w r i t e 1 n 
w r i t e 1 n 
w r i t e 1 n 
u r i t e 1 n 
w r i t e 1 n 
3 o t o x y ( 
H u e _ i n d 
S a t _ i n d 
Lum_ind 
Tab.ind 
e n d i < 
$pa3e$ 
p r o c e d u 
{ 



{#*#*♦#*#**#**#♦***#********♦****#**********##*♦****♦************♦#**} 
re D i s p 1 a y S t u f f i 

{procedure Display Stuff} 
(LabelColor)i {write in appropriate color} 

d e o f {which value are we tweaKinS?} 

Hue_Ind:=Inv_Oni { \ 
Sat.Ind: =Inv_On i { \ 
Lum_Ind : =Inv_On ! { 
: T a b _ I n d : = I n m _ n i { / 

{ / 



Turn on the display 
enhancement for the 
appropriate indicator. 



{No Indicators on}! 



{fourth r o w i first column} 



tCopy2: 
case } 
0i3) i 

(Hue.ind ,' Hue ' dnd.off ) i 
(HueUalCTableEntry]:5:2) i 
(Sat.ind > ' Sat ' »Ind_of f ) i 
(SaU'alCTableEr,try]:5;2) i 
(Lum.ind i ' Lum ' tlnd.of f ) i 
(LumUalCTableEntry]:5:2) I 
(Tab.ind > ' Entry ' >Ind_off ) i 
(TableEnt ry:3) i 
1 20) ; 
: =chr( 12B) i 
:=chr(128) i 
:=chr(1.2B) i 
:=chr(12B) i 
procedure D i s p 1 a y S t u f f } 
{##*****##*#*****#♦##**♦**♦*#*#****#*#*****#*#******###**♦******#****} 
re Up dateC u rsordableEn try: integer) i 



{twenty-first row» first column} 



\ 



Turn all display 
e n h a n cements off 



/ 



p r o c e d u r 
b e s i n 
X a r r a y [ 1 
Xarray[2 
X a r r a y [ 3 
X a r r a y [ 4 

Y a r r a y [ 1 
Yarray[2 

Y a r r a y C 3 

Y a r r a y 1 4 
s e t _ p 3 n _ 
p o 1 y 3 o n _ 
e n d ! 

{ 

be fl i n 

if LastT 
set_p3 
DrawCu 
end! {if 
s e t _ p 3 n _ 
D r a w C u r s 
LastTabl 
end! { p 



e DrawCu rso r( TableEnt ry : in tese r) 



{procedure DrawCursor} 



] 

3 

] 

] 

] 

] 

] 

3 

s t y 1 

d e u _ 



.LocCTableEnt ry]+0, 1 ! 
-LocCTableEnt ry]+0, 55 
.LocCTableEnt ry] +0.9! 
.LocCTableEnt ry]+0. 1 i 
_Lo c C Tab leEn try] -0.09! 
.LocCTableEnt ry]-0. 01 i 
-LocCTableEnt ry]-0. 09i 
_LocCTableEntry]-0.09) 
e ( 15) i 
dep(4 tXarray lYarray iQpArray 



\ 



Define 
cursor. 



the triangular 



/ 



/ 



{entry * 1 5 from the p o 1 y 3 o n 
i {draw the cursor} 
{procedure DrawCursor} 



} 
} 
} 
} 
} 
} 
} 
} 
table} 



ableEnt ry< >TableEnt ry then be sir 

n _ c o 1 o r ( ) i 

rsortLastTableEnt ry ) 

} 

color(CursorColor) ! 

o r ( T a b 1 e E n t r y ) ! 

eEnt ry :=TableEnt ry 

rocedure UpdateCursor} 



{procedure UpdateCursor} 

{any c h a n 3 e ? } 
{choose fill color of background} 
{draw in background color (erase)} 

{select p o 1 y i o n color} 

{draw the new cursor} 

{remember the new cursor position} 
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$paSe$ {********###♦*#*#**##*****#**##**#**#**♦**##****##**#*#*****##*#**###} 

besin {Main Program} 

Hue_ind:=chr(128) i { \ } 

Sat_ind:=chr(128) ! { \ All hishlishts initially } 

Lum_ind:=chr( 128) i { / of f , } 

Tab_ind:=chr(128) i { / } 

TableEnt ry : =05 {currently indicated entry} 

LastTableEnt ry :=0 i {previously indicated entry} 

Mode:=Tablei {selection mode first} 

Curso rColo r : = 1 5 {make sure the cursor is visible) 

LabelColor: =FunnyChar[BlacK] i {labels contrast with background) 

Sraphics_init! {initialize the Sraphics system) 

display_ini t (3 .0 .Erro r_Num) i {which output device?} 

if Error_Num=0 then besin {successfully initialized) 

set_char_size(0. 175 .0. 15) i {define the character size) 

set_pSn_style( 15) i {select the polygon style) 

set_aspect (51 1 t3B8) i {use the whole screen) 

set_window(-l . 1 »B .-0.7 .2.2) i {scale the window for the data) 

{ Set up color system and set background color } 

set_oolor_model(2) i {HSD 

HueUal[TableEntry]!=Oi { \ Current TableEntry: 0. ) 

SatUaHTableEnt ry] :=0i { > Current entry's color: ) 

LumMalETableEnt ry] :=G.6i { / 60% Sray. ) 

set_color_table (TableEnt ry ) { \ } 

HueUalETableEntry] » { \ Install the currently- ) 

SatValETableEntry] . { / defined color, ) 

LumMaH TableEntry]) i { / } 

{ Read the colors from the color map } 

for I:=0 to 15 do inq_colo r_tab le ( I .HueMal [ I ] .SatUal [ I ] tLumVal C I ] ) i 

{ Initialize arrays for polvSon } 

OpfirravEl ] :=2i {2: First vertex of a polygon) 

for I:=2 to 5 do OpArray C I ] : = 1 i {1: Draw from the last vertex to this) 

{ Set up arrays for the lower row } 

Yarray[13:=0,l i { \ } 

Yarrayt2]:=0.i i { \ Define the outline of ) 

YarrayC3]:=0.Si { > the tall, unfilled ) 

Yarray[a]:=0.3i { / rectangle, } 

Yarray[5]:=0.1 i { / } 

Y f i 1 1 _ a r r a y : = Y array! { \ Define the outline of ) 

Yf ill_array[33:=0,5i { > the short, filled } 

Yfill_array[4]:=0.5i { / rectangle. ) 

{ Draw the lower row } 

for I:=0 to 7 do be Sin 

Xar ray C 1 ] : = I i { \ } 

Xarray[2]:=I+0,9i { \ Define the X positions ) 

Xarrav[3] :=I+0.9! { > for this particular } 

Xarray[4] : = I i { / rectansle. } 

XarrayC5]:=Ii { / } 

st rwri te(TempSt rinS .1 .Templnt . 1 :2) ! {convert to a string) 

set_color( 1 ) i {set the color for text) 

mo ve( 1+0.5-0.075 .0) i {move to Just risht of bottom center) 

itext (TempSt rins) ! {label the table entry number) 

set_pSn_color( I ) i {set the color for polygon fills) 

set_oolor( I ) i {set the color for lines) 

polyline (5 .Xarray .Yarray) i {draw the tall unfilled rectansle) 
polyJon_dev_dep(5 .Xarray .Yf i 1 l.array .QpArrav ) I {draw and fill shortie) 

X_LocC I] : = round (XarravEl ] ) i {store X locations) 

Y.LooC I] := round ( YarravEl ] ) i {store Y locations) 
end! {for I:=0 to 15) 
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{ Set up the arrays for 

Y a r r a y [ 1 ] : = 1 . 1 ! 
Yarray[21 : = 1 . 1 ! 
Yarray[3] : = 1 .9 i 
Yarray[4J:=1.9! 

Y a r r a y [ 5 ] : = 1 i 1 i 

Y f i 1 1 _ a r r a y : = Y a r r a '/ 

Y f i 1 1 _ a r r a v- [ 3 ] : = 1 . 5 
Yfill_array[4]:=1.5 

{ Draw the upper row — 

for I : = to 7 do b e 3 i n 

Xarray[ll:=I i 

XarravLZl : = I+0.9i 

Xarray[3] : = 1+0.9 j 

Xarray[41 : = I i 

Xarray[5] :=I i 

s t r w r i t e ( T e in p S t r i n 3 . 1 . T e m p 

set_oolor(l) i 

inouef 1+0.5-0.075 .1 ) i 

3t ext ( TempSt r in 3 ) i 

set_p3n_color(I+8)i 

set_color(I+8)i 

p o 1 y 1 i n e ( 5 > X a r r a y > Y a r r a y ) ! 

p o 1 y 3 o ri _ d e m _ d e p ( 5 » X a r r a y » Y 

X _ L o c 1 1 + B ] : = r o u n d ( X a r r a y [ 1 

Y _ L o c [ I + 8 ] : = r o u n d ( Y a r r a y [ 1 
end i {for I :=0 to 15} 

{ Start interactivity -- 

M e n u Line i 

UpdateCurso r (TableEnt ty ) ! 

DisplavStuf f ! 

Done:=false i 

repeat 

read (Keyboard .Character) i 

D e 1 1 a : = i 

case Character of 



the upper row 

{ \ > 

{ \ > 

{ Re d e f i n e Y u a 1 u e 5 o n 1 y . } 

{ / > 

{ / > 

{ \ > 

{ Redefine Y u a 1 u e s o n 1 y . } 

{ / > 



\ Define the X positions 

> for this particular 
/ rectangle. 



/ 



FS 

BS 

LF 

US 

H.H1 

L.LI 

0,01 

S.S.I 

E.E1 

C.C1 



Delta: =0.01 i 

Delta: = -0.01 i 

D e 1 1 a : = . 1 I 

D e 1 1 a : = - . 1 5 

M o d e : = H u e i 

M o d e : = L u lit i 

D o n e : = t r u e ! 

Mode :=Sat ! 

Mode:=Table! 

b e 3 i n 
if Mode=Copyl then b 

Copy_Source : =Table 

CursorColor:=Copy_ 

UpdateCursordable 

3 o t o x y ( , 2 1 ) i 

w r i t e ( ' U 5 e Knob to 

w r i t e ( ' c o p y color 

w r i t e 1 n ( ' C ' ) i 

Mode :=Copy2 
e n d 



Int .1+8:2) i {convert to a strinS) 
{set the color for text} 
{ m o v e to Just r i 3 h t of bottom center} 
{label the table entry number} 
{set the color for p o 1 y 3 o n fills} 
{set the color for lines} 
{draw the tall unfilled rec tansl e } 

f 1 1 l_ar ray .Opftrray ) ! {draw and fill shortie} 

] ) j {store X locations} 

] ) ! {store Y locations} 



{write the menu} 

{initial cursor} 

{initial readouts} 

{not done yet} 

{this starts the actual color selector} 

{3et a character.no echo} 

{start by assuminS zero} 

{analyze the character} 

{ \ 

{ \ Cursor-control 

{ / cha raote rs 

{ / 

{ H u e - c h a n 3 i n 3 mode} 

{ L u m i n o s i t y - c h a n 3 i n 3 m ode} 

{Ouit the pro 3 ram} 

{ S a t u r a t i o n - c h a n 3 i n 3 mode} 

{Ent ry-chan3in3 mode} 



e 3 i n {Have source, will copy.} 

Entry; {Put it where?} 

Source! 

Entry)! {note current entry} 

{twenty-second row. first column} 

select location to ')! 

to .then press')! 

{do second section next time} 
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else beJin 

if M o d e = C o p y 2 then b e S i n {Copy color to} 
Sotoxy(0i21)i {this location} 

w r i t e 1 n ( s t r r p t ( ' ' »79 ) ) 5 {"erase" old text} 
inq_colo r_ table (Copy -Source » { \ Get the } 

HueValCTableEntry] . { \ HSL values } 
SatVaHTableEntry] » { / from the } 
LumVaHTableEntry]) i { / table, } 
CursorColor:=li {reinitialize cursor color} 

UpdateCurso r(TableEnt ry ) i {indicate new cursor position} 
Mode :=Lastflode {third section next time} 

e n d 

elsebeSin {Initiate copy mode) 

LastMode:=Mode! 
Copy_Source:=TableEntry i 
Sotoxy (0 (21 ) i 

write('Use Knob to select color ' > i 
write('to be copied tthen press')! 
w r i t e 1 n ( ' C ' ) i 
Mode:=Copyl 
e n d i 
end! 
e n d i 
otherwise 
end! {case} 

{ use delta created above to modify the proper value } 

case Mode of {what am I do in 3?} 

H u e : b e i i n 

HueVal [Tab leEntry J :=HueVal [TableEnt ry]+Deltai {adjust it} 
if HueUalETableEritry]>l then HueVal [Tab leEnt ry ] : =0 i {Keep it,,.} 
if HueVaHTableEntryKO then HueVal CTabl eEnt ry] : = 1 i {...in limits} 
end! 
Sat: b e i i n 

SatVal[TableEntry]:=SatValCTableEntry]+Deltai {adjust it} 
if SatValCTableEntry]>l then SatVal [TableEnt ry ] : =1 i {Keep it.,.} 
if SatVaHTableEntryKO then SatVal [TableEnt ry] : =0 i {...in limits} 
e n d ! 
L u m : b e 3 i n 

LumVal [Tab 1 eEnt ry] : =LumVal [TableEnt ry]+Delta i {adjust it} 
if LumVal[TableEntry]>l then LumVal [Tabl eEnt rv ] : =1 i {Keep it...} 
if LumVaHTableEnt r/]<0 then LumVal [TableEnt ry] : =0 i {...in limits} 
end! 
Table i C o p y 1 , C o p y 2 : b e 3 i n 
if DeltaOO then beSin 

if Delta>0 then TableEnt ry : =TableEnt ry + 1 { \ Adjust } 
else TableEnt ry :=TableEnt ry-1 ! { / the value } 

if TableEntry>15 then TableEnt ry : =15 i { \ keep it } 
if Table En tr/<0 then TableEnt ry:=0! { / in limits } 

UpdateCursor (TableEnt ry ) i {indicate new entry} 

e n d i 
end ! 
end! {case} 
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set_color_table(TableEntr 

HueUalETa 

SatUalETa 

LumUal [Ta 

if T a b 1 e E n t r v = then b e 3 i 

set_col o r_mode 1(1)! 

i i"i i _ c o 1 o r _ t a b 1 e ( > R e d B a 

B a c K S u (it : = i 

if RedBack<0,5 then Bac 
if GreenBacK<0.5 then B 
if BlueBack<0.5 then Ba 
if 1 d B a c K S u m < > B a c K S u m 
case B a c K S um of 



v , i \ > 

bl eEnt ry] > { \ Modify the } 

bleEnt ry ] i { / color map. } 

bleEntry]) i { / } 
n { B a c K 3 r o u n d color} 

{RGB) 
ck .GreenBack .BlueBack ) i {3et RGB values} 

{ \ Calculate the } 

kSum:=4i -C \ back 3 round color } 

ackSum: =BackSum+2 i { / in order to make } 

ckBum :=BackSum+l i { / contrasting text, } 
then b e 3 i n {Color change} 



n 
1 

3 

a 

5 

6 

7 

e n d 



L a b e 1 C o 1 o r : = F u n 
L a b e 1 C o 1 o r : = F u n 
L a b e 1 C o 1 o r : = F u n 
L a b e 1 C o 1 o r : = F u n 
L a b e 1 C o 1 o r : = F u n 
L a b e 1 C o 1 o r : = F u n 
L a b e 1 C o 1 o r : = F u n 
LabelColor: =Fun 
{case BacksSum o 



CharEBlack] i 
C h a r [ B 1 u e ] i 
CharEGreen] ! 
Char CCy an] i 
Char [Red] i 
CharEMaSenta]! 
C h a r [ Y e 1 1 o w ] ! 
CharEWhite] i 



{ \ 
{ \ 
{ * 
{ 
{ 
{ 

{ / 
{ / 



Translate the 
\ RGB background 
/ sum to a 

c o m p 1 e in e n t a r y 
text color. 



} 



Men uL ine i 

OldBackSum : = Back Sum ! 

5et_color_table(ltl-RedBack» 

1 - G r e e n B a c k > 
1-BlueBack) i 
end! {if} 

set_color_model(2) ! 
end! {if Tab 1 eEnt ry = 0} 
DisplavStuf f ! 
until Done! 
writeln(Funtv/CharCGreen] »ohr( 128) ) i 

{ Report all this sfood stuff 

Int_A:=0i 

o ut put_e sc ( Display _Cont 1 1 tO (In t_A (Real _A tErro r_Num) ! 
set_colo r_model ( 1 ) ! {RGB} 

for I:=0 to 15 do ini_co 1 o r..t able ( I tRedUal C I ] > 

GreenUalEI] , 
BlueUalEIl) i 



{print the me n u line} 

{store for future comparisons} 

{ \ Make pen one } 

{ > c o iii p 1 e m e n t a r y i } 

{ / too. } 



{HSL.} 

{update alpha information} 
{until user pushes E ] } 
{restore text screen to normal} 

} 



w r 
w r 

w r 
fo 



) 



eln( 'Table 
e ( 'Index 
eln( ' 

I:=0 to 15 
rite ( 1 : 3 » ' 
rite(HueUalEI] 
rite(SatUalEI] 
ritedumUalEI] 
r i t e ( R e d M a 1 C I ] 



Hue Sat 
Red 
do b e *f i n 



Lum') ! 
Green Blue')! 



\ 



) ; 

) ; 



) ; 



i r i t e ( G r e e n ',' a 1 C I ] :3: 



') 



writeln(BlueUalEI]:3:2) 
di 
splav_te rm ! 



en 

di 
e n d ! 

Sraphics-termi 
end. 



{ \ Get the RGB } 
{ > definition } 
{ / of the color } 



} 

} 

Write the color } 

map entries as } 

both HSL and } 

RGB numbers. } 

} 

} 

} 



{ \ 
{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ / 

{deactivate the display} 

{terminate the Graphics system} 
{Main Pros ram} 
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CsizeProg 



program Csi zePro9( output ) i 

impart d 9 1 _ 1 i b . d 9 1 _ i n q i {Set Graphics routines} 

const 

Crt= 3i {address of internal CRT} 

Control= 0! {device control i for CRT} 

Mar 

Error: integer! {variable for initialization outcome} 

I.J; integer! {utility variables} 

StrnS: s t r i n 9 [ 1 ] i {temporary h o 1 d i n 9 place for strin9s} 

* include 'DGLPRG: ConvUtoW '* {virtual-to- world conversion} 

$pa9e$ {********************************************###**#***##*##*#**#*###*} 

procedure CharSize(Hei 9ht » AspectRatio: real)! 

{ } 

{ This procedure defines character cell size and the puts the Width and } 

{ Hei9ht values into 9lobal variables for later use. The arguments passed } 

{ in are the height of the character eel 1 in UIRTUAL coordinates . and the } 

{ aspect ratio of the character cell. The values for the window limits } 

{ may be anything! they are taken into account and do not affect the size } 

{ of the characters . since they are defined in virtual coordinates. This } 

{ procedure! along with Lorg and Ldir. define global variables for use by } 

{ Glabel. } 

{ } 

var 

Width: real! {temporary spot for width} 

XO . YO: real! {0.0 (virtual) in world} 

X 1 . Y 1 : real! {Ill (virtual) in world} 

begin {body of procedure "CharSize"} 

Conve rtVi rtualToWo rld(0 .0 .XO .YO) i {convert 0.0 in virtual to world} 

Conve rU'i rtualToWo rld( 1 .1 .XI .Yl ) ! {convert 1.1 in virtual to world} 

Hei ght :=Hei 9ht*( Yl-YO) ! {convert height in virtual to world} 
Width:=HeiSht*AspectRatio*(Xl-XO) /(Yl-YO) i {convert width in virtual to world} 

set_char_size (Width .Height ) i {invoke the parameters} 

end! {procedure "CharSize"} 
$pase* {***********************************************#*****#*#***##*##*♦*#} 

begin {body of program "CsizeProg"} 

graphics_iriiti {initialize the graphics system} 

display_init(Crt .Control .Error)! {which output device?} 

if Error=0 then begin {output device initialization OK?} 

set_aspect (51 1 .389) i {use the whole screen} 

set_window( 1 .2 .100 .0) i {scale the window for the data} 

for I : = 1 to 6 do begin {six different character sizes} 

CharSizet 1*1*0,01 .O.G) ! {install character size} 

move ( 1 . 1*1*1*0 .4+1 ) i {move to a appropriate place} 

st rwrite(St rn9 .1 .J .1*1 :0! i {convert number to string} 

9text(Strn9+"Z') ! {label the string} 
end! {for i } 
end! {Error=0?} 

graphics-term! {terminate the graphics package} 

end. {program "CsizeProg"} 
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DataPoint 

$paSe* {**♦*♦♦#**#♦*#*##*#*#******♦****#*************#*******#*************♦} 
function DataPoint ( I : inteser): real! {function that returns the y-values} 



{ 

{ Thi 
{ const 

{ the " 
{ 

type 

VoltsT 
const 

Volt as 



s function returns one of the one h u n d r e d u a 1 u e s in the structure d 
ant "VoltaSes" every time it is called. This function is called bv 
Prosressiue Example" pros rams in the Sraphics techniques chapters. 



array [.It .100] of real! 



VoltsType[0. 
. 
, 
. 
. 
0, 
0, 
0. 
0, 
0. 
i 
0, 
0, 
i 
i 
, 
0, 
. 

o. 

. 



1 6 1 
1631 
1607 
1640 
1635 
1G24 
1BB0 
1662 
1645 
1G80 
1869 
166.8 
1716 
1G83 
1681 
1734 
1702 
1715 
1732 
1707 



0.1 
0.1 
0.1 
0.1 
0,1 
0.1 
0.1 
0.1 
0.1 
0.1 
0,1 
0.1 
0,1 
0.1 
0.1 
0.1 
0.1 
0.1 
0.1 
0.1 



625 
627 
G17 
656 
641 
627 
G70 
646 
652 
696 
G55 
G81 
716 
671 
698 
714 
699 
730 
747 
706 



b e S i n 
D a t a P o i n 
end i 



t :=VoltaSe5[I] i 
{function "DataPoint"} 



. 
0. 
0. 
0. 
0. 
0, 
0. 
, 
. 
, 
0, 
, 
. 
0, 
0, 
0, 
0, 
0. 
0, 
0. 
bod 
ass 
ret 



1625 

1608 

1G14 

1GG0 

1628 

1644 

1672 

1G33 

1656 

1680 

1665 

16B8 

1G94 

1681 

1705 

1722 

1G84 

1737 

1729 

1709 

y of 

i Sri i 

u r n } 



.1628 

.1610 

.1626 

.1644 

.1619 

,1644 

.1666 

.1634 

,1677 

.1674 

.1662 

.1687 

.1698 

.1683 

.1723 

.1716 

.1706 

,1739 

.1717 

,1713 

notion 

to the 



0.1636, 

0,1606, 

0.1634, 

0.1651 , 

0.1630, 

0.1657, 

0.1658, 

0.1636, 

0.1689. 

0.1677, 

0.1667, 

0.1707, 

0.1683, 

0,1684, 

0,1730, 

0,1696, 

0.1696, 

0.1751 , 

0.1710, 

0.17201! 

"DataPoint"} 

f u n c t i o n n a m e } 



DrawMdPrg 



p ro Sram DraulidP r3( out put ) i 

import d S 1 _ 1 i b i 

const 



P o 1 y S o n s = 

S i d e s = 

c rt = 

control 1 
type 

short.in X- 

DrawinsModeType= ( 

DisplayStates=(Of f ,0n) ! 
var 



100 i 

3i 
31 
Oi 

-327G8. .327G7! 



{pros ram name same as file name} 
{access the necessary procedures} 

{how m any p o 1 y sons?} 

{how many sides apiece?} 

{device address of Sraphics raster} 

{device control word! isnored for CRT} 

{16-bit inteser} 



Dominant ,Er as e (Complement ) i 



D x , D y : 

Poly , Side: 

DrawMode : 

Temp: 

New .Previous; 

seed: 

error: 



array [ . , P o 1 v S o n s - 1 , 1 , , S i d e s ] of short.int! 

array [ , , P o 1 / S o n s - 1 , 1 , , S i d e s ] of short.inti 

array [1. .Sides] of short_inti 

s h o r t _ i n t i {loop control variables} 

DrawinsModeType i 

s h o r t _ i n t i {temporary h o 1 d i n S area} 

short_inti {for efficient use of arrays} 

inteSeri {random number seed} 

inteSeri {d i splay_ini t return variable! 



of;} 
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$paSe$ {##♦####*****#*#***#*♦##*•**##»##*#**#*##**#**###*##*###*#***#*##*####} 

procedure Alpha(State: Di splayStates ) i 

{ __ } 

{ This procedure turns the alpha raster on or offi } 

{ } 

const 

AlphaRaster= 1051! {mnemonic better than masic number} 

war 

AlphaQn: array El.,1] of integer! { \ This is all stuff that } 
Rarray: array El.,1] of real! { > is needed by the } 

Error: integer! { / " out put_esc" procedure. } 

beSin {procedure "Alpha"} 

if Btate=0n then AlphaOnE 1 ] : =1 

else AlphaOnEl] :=0i 

outPut_esc(AlphaRaster»l »0 tAlphaOn »Rar ray iEr ro r) i 

if ErrorOO then writeln( 'Error 'iError:Qt' in procedure "Alpha".')! 

end! {procedure "Alpha"} 

$pa3e$ {###*♦*#**♦**#*###***♦*#**#**♦*##*#***##*#*#*#*#*♦#*####**#*##*######} 

procedure DrawinSModefMode : DrawinsfModeType ) i 

{ } 

{ This procedure selects drawins modes for a monochromatic CRT. } 

{ > 

const 

SetDrawin3Mode= 1052! {mnemonic better than maSic number} 

war 

DrawMode: array [1..1] of inteSeri { \ This is all stuff that } 
Rarray: array El. .11 of real! { > is needed by the } 

Error: integer! {/ "outPut_esc" procedure. } 

beSin {procedure "DrawinSMode" } 

case Mode of { \ } 

Erase: DrawModeE 1 ] : =2 i { \ Convert DrawinSMode enumerated } 
Dominant: DrawModeE 1 ] : =0 i { > type into the appropriate } 
Complement: DrawModeE 1 1: =3 i { / ualue for DUTPUT_ESC procedure. } 

end! -Cease} {/ } 

outPut_esc(SetDrawinSModedtOtDrawModetRarrayiError)i {set it} 

if ErrorOO then wri te In ( 'Error 'tError:0»' in procedure "DrawinSMode" . ' ) i 

end 5 {procedure "DrawinSMode" } 

*pase$ {*#*#***##****♦******#****#***♦*#*#*****#**#*♦##**♦***#**#*#*##♦**###} 

function Rand: short_inti 

beSin {function "Rand"} 

Beed: = ( (Seed+13579) *39777) mod 10000 ! {make new seed} 

Rand:=Seedi {return current value of seed} 

end! {function "Rand"} 

Spaiet {#******##**»*# ****#********###**#****#**#*#**#*#*#* ##♦#*#######*###*} 

procedure Def ineDel tas i 

i.i a r 

Side: s h o r t _ i n t i 

beiin {body of procedure "Def ineDel tas" } 

for Side:=i to Sides do beiin {for each vertex} 

DxESide] :=Rand mod 5+2! {masnitude of this dx} 

if Rand> = 5000 then DxESi del : = -Dx [Si del \ {sisn of this dx} 

DyESidel :=Rand mod 5+2! {magnitude of this dy} 

if Rand> = 5000 then Dy [Side] : --Dy [Side] i {siSn of this dy} 

end! {for side} 

end! {body of procedure "Def ineDel tas" } 
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$paSe$ {*♦#*#♦******##*****#*#*******#**************************************} 
be Sin {body of pros ram "DrawMdPrs"} 

DrawMode : = D o w i n a n 1 5 {specify drawinS mode} 

Seed:=1173i {initialize random number seed) 

Sraphics-initi {initialize Graphics library} 

d i s p 1 a y _ i n i t ( c r t » c o n t r o 1 > e r r o r ) ! {initialize CRT} 
if e r r o r = then b e S l n {if no error occurred...} 

set_aspect(511 »389) ! {use the whole screen} 

set_window(0 .51 1 tO i389) ! {one user unit=one pixel} 

Alpha(Off)! {turn off the alpha screen} 

DrawinSMode (DrawMode ) i {select specified drawinS mode} 

for S i d e : = 1 to Sides do b e S i n {define the first p o 1 y 3 o n } 
X C tSide] : = Rand mod 511! {define X component} 

YCO .Side] :=Rand mod 3895 {define Y component} 

if Side=l then { \ } 

int_move (X[0. Side] .Y[0. Si.de] ) { \ Move to the first } 
else {> point t and draw to } 

int_line(X[OiSide] .YEOiSide]) i { / all the rest. } 
end! {for side} 
if Bides >2 then 

i n t _ 1 i n e ( X [ . 1 ] t Y [ . 1 ] ) i {if simple line * don't close} 

Def ineDeltas i {define dx and dy far each vertex} 

for P o 1 >■ : = 1 to Pol'/Sans-l do besin {draw all the polygons} 

for S i d e : = 1 to Sides do b e if i n {each vertex of each polygon} 
T e m p : = X [ P o 1 y - 1 . S i d e ] +D x [ S i d e 3 ! {avoid recalculation} 
if Temp>511 then { \ } 

DxCSide]:=-DxCSide] { \ Is X off the } 

else if Temp<0 then { / screen 7 } 

Dx[Side]:=-Dx[Side]i i I > 

XCPoly -Side] :=X[Polv-l »S:i de ]+Dx [Si de ] I {calculate next x} 
T e m p : = Y [ P o 1 y - 1 t S i d e ] +D y [ S l d e ] i {avoid recalculation} 
if Temp>389 then { \ > 

Dy[Side]:=-Dy[Side] { \ Is Y off the } 

else if Temp < then { / screen? } 

Dy[Side]:=-Dy[Side] i { / > 

YCPolv .Side] : = Y C P a 1 '/ - 1 .Sidel+Dy [Side ] i {calculate next y} 
if Side = l then i n t_mo v e ( X[ Po 1 y .S i de 3 , \'i Po 1 y tSi de ] ) {move to first point ,} 
else int_l ine(XCPoly .Side] tYCPoly iSide] ) i {draw to all the rest} 
end! {for side} 

if S i d e s > 2 then {if simple line, don't close p o 1 v S o n } 

int_line(X[Poly .1] .YCPoly til) i 
end! {for p o 1 v } 

N e w : = i {start re-use at entry 0} 

while true do beSin {ad infinitum..,} 

if New = then P re v i o us : =Po 1 y Sons- 1 {start re-using' over} 
else P r e v i o u s : = ( P r e v i o u s + 1 ) mod P o 1 y S o n s i { r e - u s e next entry} 
if DrawMode=Dominant then DrawMode : =Erase i { \ If Dominant t toSSle state} 
DrawinSMode(DrawMode) ! {select specified drawinS mode} 

for Side:=l to Sides do beSin {erase the oldest line} 

if Side=l then { \ Move to the } 

int_move(X[New .Side] .Y[New tSide] ) { \ first point. } 

else { /draw to all the} 

int_line(X[Mew »Side] .YENew.Side] ) i { / rest. } 

end! {for Side} 

if Sides>2 then {if simple line, don't close polySon} 

i n t _ 1 i n e ( X [ N e w 1 1 ] » Y [ N e w . 1 ] ) i 
if DrawMode = Erase then D rawMode : =Dominan t i { \ If Erasei to 9 91 e state} 
DrawinSMode (DrawMode ) i {select specified drawinS mode} 
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for Bi d e : = 1 to Sides do b e 3 i n 
Temp:=X [Previous, Side] +Dx[Side]! 
if Temp>5il then 

Dx[Side]:=-Dx[Side3 
else if Tedip<0 then 

Dx[Side]:=-Dx[Side] i 
X[New ,Si del: =X[ Previous »Side]+Dx [Side] ! 
Te wp: = Y [Pre uious»Side] + D'/ [Side]! 
if Temp>389 then 

Dy[Side]:=-D'/CSide] 
else if Temp<0 then 

Dy[Side]:=-D'/[Side] i 
Y[New,Side]:=Y[ Previous »Side]+Dy [Side] i 
if Side=l then int_move (X[New tSidel »Y[New (Side! ) 
else int_line(X[New,Side]»Y[New»Side])! 
end! {for side} 
if Sides>2 then 

int_line(X[New,l] ,Y[New»l]) ! 
New:=(New+l) mod PolySons! 
end! {while} 
end! {error=0?} 
3raphics_termi 
end. {pro 3 ram "DrawMdPrS"} 



{\ 



\ 



\ 



{next one to re 



{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{/ 
-use} 



\ 



Draw the 
new line 
the same 
way as 

before. 



/ 



/ 



/ 



{end of conditional code} 
{terminate Graphics library} 
{end of proSram} 



FillProg 



pros ram Fi 1 lProst output ) ! 
impo rt 

d 3 1 _ 1 i b » d 3 1 _ t y p e s » d 3 1 _ p o 1 y i d 3 1 _ i n i \ 
const 

MaxPoints= 

Crt = 

Control 1 
type 

Reals= 

Word = 

InteSe rs = 
const 

Xvalues= 



27 ; 

3i 
Oi 

array [1 . .MaxPoints] 
-327GB.. 32767! 
array [ 1 . . M a x p o i n t s ] 



{pros ram name same as file name} 

{access the necessary procedures} 

{number of points in arrays} 
{device address of Graphics raster} 
{device control word! iSnored for CRT} 



of real i 
of Word! 



{to contain X and Y values} 
{lG-bit word} 

{to contain op. selectors} 



Y V a 1 u e s = 



OpCodes= 



RealsC 1.5 

-2.5 

-2.5 

2,5 

-0.5 

RealsC 1.0 

1.0 

-2.0 

-2.0 

-2.0 

Intesers[2 



2.5 

2.5 

4.5 

4. 5 

1,0 

2.0 

1.0 

4,0 

4.0 

3.0 

,1 .1 , 

.1 ,1 , 

,1 .2* 

,1 ,2, 

,1 .1] 



2.5 

2.5 

2.5 

2.5 

1.0 

3.0 

2,0 

0,0 

0,0 

3,0 

1 .1 

1 , 

1 i 

1 i 

i 



.5. 
,5, 
, » 
, » 
,5] 
. t 
.0 i 
.0 » 
. i 
.0] 

1 , 



-1.5, 
-2.5, 
-4.0, 
4,0, 
i 

4.0, 

1.0 i 

-4.0, 

-4.0, 



■2.5; 



!,5,-l,5. 



3,0, 2.0, 1,0, 



war 
Error: 
I: 

L e a X » L e m Y : 
OpSelecto rs : 
Points: 



inteSe r i 
i n t e 3 e r i 
Reals! 
InteSe rs ! 
i n t e 3 e r i 



{Octason} 

{Box} 

{Left les} 

{RiSht le3} 

{Nozzle} 

{OctaSon} 

{Box} 

{Left leS} 

{Ri3ht le3} 

{Nozzle} 

{Octason} 

{Box} 

{RiSht leS} 

{Left le3} 

{Nozzle} 



{display_ini t return variable! = ok} 

{loop control variable} 

{so we can pass it to "pol y Son" } 

{ditto} 

{ditto} 
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*pase* {****#****#*******#*****###+*#****#******#**#***#*#♦*#*##***#*##♦♦###} 
beiin {body of program "FillPro^"} 

LemX: =Xvalues i { \ Put into variable array so } 

LemY:=Yvalues i { > it can be passed by > 

QpSelecto rs : =0pCodes ! { / reference into the DGL proc.} 

Points:=MaxPoiritsi {put constant into an array variable} 

graphics. in it i {initialize Graphics library} 

display_init(CrttControliError)i {initialize CRT} 

if E r r o r = then b e i i n {if no error occurred...} 

set_aspect (51 1 »389) ! {use the whole screen} 

set_window( -7.5 .18.5 » - 1 1 1 ) 5 {invoKe isotropic units} 

set_psn_style( 14) i {c rosshatched fill} 

pol'/sfon( Points .LeniX .LernY .OpSelecto rs ) i {draw the lines} 

set_window( -18.5 .7 .-10 ,10) i {invoke isotropic units} 

set_psn_table( 14 t0.51 tO il ) i {set the "do a fill" flas} 

set_color_table(l ,0. 125 ,0. 125 ,0. 125) ! {.specify 12.57, Sray scale} 
set_pSn_color(l); {use specified "color"} 

pol y3on_dev_dep( Points tLemX tLemY iDpSel ecto rs ) i {draw the lines} 

end! {Error = 0?"> {end of conditional code} 

i raph i cs_te rm i {terminate Graphics library} 

end. {program "FillProS"} {end of program} 



FillGraph 



program Fi 1 lGraph ( output ) \ 

import d 3 1 _ 1 i b » d 3 1 _ t y p e s . d i 1 .. p o 1 y i 

const 

CrtAdd r= 3i 

C o n t r o 1 W o r d = ! 

type 

RDataType* array [0..121 of real! 

WDataType= array E0..12] of -327G8 . . 327G7 i 

const 

Xvalues= RDataType [0 .1 .2 .3 ,4 ,5 ,6 ,7 ,B -9*10.10 .0] i 

Yvalues= RDataTypeC2 ,4 .3 ,6 .5 .5 .3 ,7 ,5 >G ,8 .0 >0] ! 

Ope rat ionSe lectors = NDataTypeCZ , 1 , 1 .1 .1 .1 . 1 » 1 ,1 , 1 , 1 , 1 .11 i 
var 

Erro rReturn : mteserj 

X i Y : RDataType i 

OpSbI: WDataTypei 

$pa3e$ {*#*****##***♦************♦*****##*♦*#******♦**♦***##*#****#*♦##**♦#♦} 
begin {program "FillGraph"} 

3raphics_initi 

display.init (CrtAdd r »Co nt rolWord tErro rReturn) i 
if Er ro rReturn=0 then begin 

set_aspect(511 .389) i 

set_window(0 .10 .0 .10) i 

move(0.0)i line(O)lO)! 1 ine ( 10 . 10) ! linedO.O)! line(O.O); 

X:=Xvalues i Y: =Yvalues i OpSel:=Operation Selectors! 

set-pin-, tablet 1 .0, 333 .17, 34 , 1 ) i 

set_p3n_sty le ( 1 ) i 

poly Son ( 13 .X ,Y .OpSel ) i 
end! {Er rorReturn=0?} 
graphics_te rm ! 
end. { program "Fi 1 1G raph " } 
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GstorProg 

isvsPTDi on* {so we can define array addresses) 

program Gsto rProg( Keyboard toutput) i {program name same as file name} 

label i; 

import d<fl_libf dsfl_inqi {access the necessary procedures) 

const 

Crt= 3! {device address of graphics raster) 

Control 1 Oi {device control word! i Snored for CRT) 

GRasterAddr= hex ( '530000 ') i {address of graphics memory} 

GRasterSize= B240 5 {32-bit integers in graphics raster} 

Ratio= 1.313B24G7B8B! {aspect ratio of the Model 3B CRT} 

type 

GRasterType= array [ 1 , .GRaste rSizel of integer! 
H Just if '/Type = (Lef t .HCente red »Ri ght ) i 
V Just if vType= (Bottom >VCente red »Top) i 
DisplayStates=(Dff tOn) i 

An3Type= (DeS tRad »Grad ) i {used by procedure Ld i r> 
RoundType= (Up» Down i Near)! {used by function RoundZ} 
Btr255= string[2551i {used by procedure Glabe 1 > 

var 

Error: integer! {display.ini t return variable! = oK} 

Decade* Units: integer! {for logarithmic X-axis} 
XtDx: real! {x-axis variables} 

Xmin tXmax tXrange: integer! {more x-axis variables) 
Y i D y : real! {y-axis variables) 

Ymin lYmax tYranSe: integer! {more y-axis variables) 
I: integer! {utility variable) 

Stms: Str255i {another utility variable) 

Character: char! {and vet another) 

Temperature: real! {need a larger range than an integer) 

OldXt OldY: real! {last point drawn to) 

GRasterEGRasterAddr] : GRasterType! {actual graphics raster) 
Screen: GRasterType! {user's screen image) 

Keyboard: text! {allow GETs from the Keyboard) 

CharWidth tCharHeiSht: real! { \ These are global variables ) 

HJustif ication: HJust if '/Type ! { \ used by the CharSize/ ) 

UJustif ioation: VJust if '/Type ! { / LabelDi rect ion/Labe Uust i f y/ ) 
CharTheta: real! i / Glabel series of procedures. } 

ClipXmint ClipXmax: real! {soft clip limits in x) 

ClipYmint ClipYmax: real! {soft clip limits in y) 

♦ include 'DGLPRGsConvVtoW '* 

*page* {**####*##*#*#*#****#*#***##***#****#***#»*#**#*********#**♦*********) 
procedure CharSize (Hei g"ht > AspectRatio: real)! 

{ } 

{ This procedure defines character cell size and the puts the Width and } 
{ Height values into global variables for later use. The arguments passed } 
{ in are the height of the character cell in VIRTUAL coordinates* and the } 
{ aspect ratio of the character cell. The values for the window limits ) 
{ may be anything! they are taken into account and do not affect the size } 
{ of the characters) since they are defined in virtual coordinates. This ) 
{ procedure* along with Lorg and Ldir* define global variables for use by ) 
{ Glabel. ) 

{ ) 
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i.i a r 

Width: reali {temporary spot for width} 

XO i YO: real! {OiO (virtual) in world} 

X 1 t Y 1 ; r e a 1 i {Id (virtual) in world} 

be sin {bod/ of procedure "CharSize"} 

Con ve rtVi rt ual To Wo r 1 d ( >0 »X0 > YO ) ! {convert 0»0 in virtual to world} 

C o n v e r t M i r t u a 1 T o W o r 1 d ( 1 d t X 1 t Y 1 ) i {convert Id in virtual to world} 

He i Sht : =He i Sh t* ( Yl -YO) ! {convert h e i ah t in virtual to world} 

Width:=HeiSht*AspectRatio*(Xl-XO) /(Y1-Y0) ! {convert width in virtual to world} 
5et_char_size (Width iHei Sht ) 5 {invoke the parameters} 

end! {procedure "CharSize"} 

$paSe$ {##******##**##***♦#*#**#*##**#**#*♦#*##*****#♦**♦#**********##***#**} 

procedure Labe 1 D i rec t i on ( Di rect i on : real! Units: AnSType)i 

{ } 

{ This procedure is used in conjunction with Labe lOri Sin t CharSize and } 
{ G 1 a b e 1 4 It sets the labelling direction to be used* and places the } 
{ di red ion into a Slobal variable so G lab el can use it . } 

{ } 

const 

DeS_per_rad= 57,2957795131! {180/pi: for convertinS deSrees to radians} 
Grad_per_rad= G3, B6197723GB i {200/pi: for convertinS srads to radians} 
b e S i n {procedure "LabelDirection"} 

case Units of 

DeS: Di rec t i on : =Di rect i ori/De3_pe r_ rad i {deSrees to radians} 
R a d : i {correct units already} 

Grad: Di rec t i on : =Di rect ion/G rad_pe r_rad i {srads to radians} 
end! {case} 

CharTheta:=Direction; {put into a Slobal variable} 

5et_text_rot(cos(CharTheta)t5in(CharTheta))i {invoke the new text direction} 
end! {procedure "LabelDirection"} 

$paSe$ {*******♦*****#**#**♦*****♦#*******#****#****#*******#**#**♦*##**♦#**} 

procedure Labe Uust i f y ( HJust : HJust if yType ! UJust: UJus t i f /Type ) ! 

{ > 

{ This procedure is used in conjunction with procedures CharSize* } 
{ LabelDirection i and G label. This Just puts a value into Slobal } 

{ variables which will be subsequently used by G 1 a b e 1 . } 

{ } 

b e S i n {procedure "LabelJustify"} 

HJust i f icat i on : = HJust i 

',' J u s t i f i c a t i o n : = U J u s 1 5 

end! {pro c _ e dure "LabelJustify"} 

$paSe$ {*##*♦****###**##***♦***#***********#***♦******#**#♦*****♦***#**♦*#**} 

function Atan(Y» X: real): real! 

{ } 

{ This function returns the value of the arc tansent of Y/X • placins it } 
{ in the correct quadrant. If Y and X are both zero* the result is zero. } 
{ } 

const 

Pi= 3.14159265359! {pi} 

besin {function "Atari"} 

if X = 0.0 then At an : = ( Pi /2+Pi*o rd ( Y<0 . ) ) *o rd ( YOO . ) 
else Atan:=arctan(Y/X)+Pi*ord(X<0.0)+2*Pi*ord( (X>0.0) and (Y<0.0) ) i 
end i { function "At an " } 
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procedure Glabel (Text, : Str255)i 



{ This procedure labels a string of text at the current pen position. 

{ It taKes into account the current label direction (set by procedure 

{ "LabelDirection"* the current character size (set by procedure 

{ "CharSize")> and the current label justification (set by procedure 

{ "LabelJustify"), 



{mnemonic better than masic number} 
{ditto> 



const 

CharSizeCode= 250! 

CurrentPosi tion= 259! 
type 

Position s = 

P o s i t i o n T y p e = 

CharAtt ributes = 

CharAtt rType= 
var 

Chars: 

Chars ize : 

LentHeiSht: 

Dx »Dy: 

R tTheta: 

Pac: pacKed array [1..1] of char! { \ 

Iarray : 

Position: 

Error: integer! {/ 

beSin {procedure "Glabel"} 

inq_iAis(CharSizeCodetOtOt2tPaciIarraytCharsizetError)i {Set pen 

if ErrorOO then write In ( 'Erro r ' lErro r:0 i ' in "Glabel".')! 
Chars : = st rlen( text ) i 
Len:=Charsize[Width]#(7*Chars+2*(Chars-l) )/9i {lenith 



(X.Y) ; 

array [Positions] of real! 

(Width ,Heishth) i 

array [CharAtt ri butes] of real! 



integer! 
CharAtt rType ! 
real i 
real i 
real i 



{lenSth and heisht of character string} 



{for rectanSular-to-polar conversion} 



pacKed array [ 1 . . 1 ] of char! 
array [1 . . 1 ] of intesfer 5 
PositionType ! 
i n t e S e r i 



These are the } 
sundry items } 
needed for the } 
call to "ini_ws"} 

position} 



{heisht 



minus inter-char Sap} 
minus inter-line Sap} 



{ \ 
{ / 
{add 
{ \ 
{ / 



Convert to polar coordinates so 
rotation is easy, 
the LabelDirection anSle} 
Convert R and the new Theta back 
to reotanSular caodinates. 



{Set pen position} 



HeiSht:=Charsize[HeiShth]*8/15i 

Dx:=Len*(-ord(HJustification)/2)i 

Dy :=HeiJht*<-ord(V Justification )/2)i 

R:=sirt(Dx*Dx+Dy*Dy) i 

Theta:=Atan(Dv tDx) i 

Theta: =Theta+CharThetai 

Dx:=R#cos(Theta) i 

Dy:=R*sin(Theta) i 

ini-wsfCurrentPositiontOtOtZtPacdarraytPositiontError)! 

if E r r o r = then beSin 

move( Position[!']+Dx tPos i t ion[ Y]+Dv ) i {move to the new startinS point} 

Stext ( text ) i 
end {Error=0?} 

else writeln( 'Error' »Error:0 > ' in "Glabel". ')i 
end! {procedure "Glabel"} 

*pase* {**#*##♦#*####****#*#***#****#*#*#*#**#***#*#*#******#*#*#******#****} 
procedure MainTitle (X t Y: real! Title: Str255)i 

{ } 

{ This procedure writes a larSe label for the main title of a plot. } 



b e s i n 

CharSize(O.OG)O.G) i 

LabelDirection(OtDeS) i 

Lab elJustify(HC entered jTop) 

m o v e ( X i Y ) i 

Glabel (Title) ! 

end i 



{procedure "MainTitle"} 



{procedure "MainTitle"} 
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$pa3e$ {**********##*******#+*#**#*****####*#*♦**#**♦#***+****#+#***+*##****} 
procedure XAx i sTi 1 1 e ( X > Y: real! Title: Str255)i 



{■ 
{ 

{--- 

b e 3 i n 

CharSi ze (0.04 »0»G) i 

LabelDirection(OiDeJ)! 

LabelJustif y (HCente red .Bottom) i 

ii) o v e ( X t Y ) i 

Glabel (Title ) i 

end! {procedure "XaxisTitle"} 

$pase$ {##*##**###*#***####***#*#*###♦#**#**##*#**#######*##*#*##**#########} 

procedure Yax l sT i 1 1 e ( X >Y: real! Title: Str255)i 

{ } 



This procedure writes a small label for the X-axis title of a plot, 

{procedure "XaxisTitle"} 



This procedure writes a 1 a r sf e label for the Y-axis title of a plot. 



{procedure " Y a x i s T i 1 1 e " } 



b e i i n 

CharSize(0.04 tO.G) i 

LabelDi rectionOO »De<J) \ 

LabelJustif y (HCente red (Top) i 

m o v e ( X i Y ) i 

Glabel (Title) i 

end 5 {procedure "YaxisTitle"} 

$pa3e$ {*#♦♦♦###*#**#***#•)(•**♦#*###*#*****#**##♦#*###*#♦#*##*####*##*♦##*#♦#♦} 

procedure CI i pLimi t (Xmin • Xmax > Ymirit Ymax: real)! 



{- 



■} 



{ T h i 5 procedure defines the four i 1 o b a 1 variables which specify where the } 
{soft clip limits are. } 

{ > 



b e 3 i n 

if X(iiiri<Xmax then beSin 

C 1 i p X m i n : = X m i n ! 

ClipXmax : =Xmax ! 
e n d 
else b e 3 i n 

CI ipXmin : =Xinax ! 

CI ipXmax : =Xmin i 
e n d i 
if Yiiiin< Ymax then beiin 



ClipYntin; 

CI ipYmax : 
end 
e 1 5 e b e $ i n 

CI ipYmin ! 

C 1 i p Y m a x : 
end i 
end i 



: Y iii i n i 
= Y m a x i 



; Y m a x ! 
: Y m i n ! 



{ \ 
{ \ 
{ 
{ 
{ 
{ 

{ / 
{ / 
{ \ 
{ \ 
{ 
{ 
{ 
{ 
{ 
{ / 



Force the minim u m soft 
\ c 1 i. p limit in X to be 
\ the smaller of the two 
/ X values passed into 
/ the procedure. 



Force the minim urn soft 
\ clip limit in Y to be 
\ the smaller of the two 
/ Y values passed into 
/ the procedure. 



/ 
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$pase$ {##*#**####*###*#*#******#**♦##*#**♦********♦#****#****#***********#*} 
procedure ClipDrawOUt Yl t X2 » YZ: real)! 

{ } 

{ This procedure takes the end points of a linei and clips it. The soft } 
{ clip limits are the real global variables ClipXmint CI i pXniax » ClipYmiru } 
{ and ClipYmax. These may be defined through the procedure ClipLimit. } 

{ > 

label 

1; 

type 

EdSes= (Left (Risht (Top (Bottom) i {possible edSes to cross> 

OutOfBounds= set of EdSesi {set of edses crossed} 

var 

Dut tOut 1 (Dut2;OutOfBounds i 

X, Y: real! 
{ } 

procedure Code(X> Y: real! var Out: OutOf Bounds ) i 

beSin {nested procedure "Code"} 

u t : = [ ] i {null set} 

if x<ClipXmin then Out:=[left] {off left edSe?} 

else if x>ClipXmax then Out :=[ rishtl i {off risht edse?} 

if y<ClipYmin then Out : =0ut+[bottom] {off the bottom?} 

else if y>ClipYmax then Out : =Out+ttop] i {off the top?} 

end! {nested procedure "Code"} 

{ } 

be din {body of procedure "ClipDraw"} 

CodefXl »Y1 iQutl) i {figure status of point 1} 

Code(X2 (Y2 (OutZ) i {fiSure status of point 2} 
while (OutlOCl) or (0ut2<>[]) do besfin {loop while either point out of ranSe} 

if (0utl*0ut2)<>[ 1 then Soto li {if intersection non-null ( no line} 
if Outi<>[] then 0ut:=0utl 

else 0ut:=0ut2i {Out is the non-empty one} 

if left in Out then begin {it crosses the left edge} 

y:=Yl + (Y2-Yl )*(C1 ipXmin-Xl )/(X2-Xl) KadJust value of y appropriately} 

x:=ClipXmin i {new x is left edse} 
end {left in Out?} 

else if risht in Out then beSin {it crosses risht edse} 

y:=Yl+(Y2-Yl)*(ClipXmax-Xl)/(X2-Xl) KadJust value of y appropriately} 

x:=ClipXmaxi {new x is risht edSe} 
end {risht in Out?} 

else if bottom in Out then beSin {it crosses the bottom edSe} 

x:=Xl+(X2-Xl)*(ClipYmin-Yl)/(Y2-Yl) KadJust value of x appropriately} 

v:=ClipYmini -Cnew y is bottom edse} 
end {bottom in Out?} 

else if top in Out then beSin {it crosses the top edSe} 

x:=Xl+(X2-Xl )*(ClipYmax-Yl )/(Y2-Yl ) KadJust value of x appropriately} 

y : =C1 i pYmax ! {new y is top edse} 
end! {top in Out?} 
if Out=Outl then begin 

Xl:=x! Y 1 : = ■/ 5 Code ( x »y (Out 1 > i {redefine first end point} 
end {Dut=0utl?} 
else b e $ i n 

X2:=xi Y2:=yi Code ( x (y (0ut2) i {redefine second end point} 
end! {else besfin} 
end! {while} 

move( xl (yl ) i {if we Set to this pointt the line...} 

1 ine( xZ r/Z) i {...is completely visible t so draw it} 

1: end! {procedure "ClipDraw"} {return} 



176 Listings of Example Programs 



$pase$ {*#♦**♦#***♦##♦#*♦#*#*##***#****#**#***#****************##*********#*} 

function R o u n d 2 ( N t M : real! Mode: R o u n d T y p e ! : real! 

{ } 

{ This function rounds "N" to the nearest "M" i according to "Mode". This } 
{ function works only when the argument is in the ranse of MININT. . MAX I NT. } 

{ } 

const 

e p s i 1 o n = 1 E - 1 ! {roundoff error fudSe factor} 

uar 

Rounded: real! {temporary holdins area} 

Negative: boolean! {flai: "It is negative?"} 

besfin {body of "Round2"} 

Ne3ative:=(N < • ) i { i s t h e n u iii b e r negative?} 

if Negative then b e 3 i n 

N : = a b s ( N ) 5 {work with a positive number} 

if Mode = L)p then Mode:=Down {if number is negative* ...} 

else if M o d e = D o w n then M o d e : = U p ! { . . • r e u e r s e up and down} 
e n d i 
case Mode of {should we round the number...} 

Down: R o u n d e d : = t r u n c ( N / M ) * M i {...left on the number line?} 

Up: b e S i n 

R o u n d e d : = N / M ! { . . . r i i h t on the number line?} 

if abs ( Rounded- round (Rounded )) >BP5 i 1 on then 

R o un d e d : = ( t r un c ( R o un d e d ) + 1 . ) *M 
else 

R o u n d e d : = t r u. n c ( R o u n d e d ) * M ! 
end i 

Near: Rounded : = t rune ( N/M+M*0 . 5 ) *M i {...to the nearest multiple - ?} 
end! {case} 

if Negative then R o u n d e d : = - R o u n d e d i {reinstate the s i i n } 
RoundZ: =Rounded j {assisn to function name} 

end! {function "Round2"} 

$paSe$ it*******************************************************************} 
procedure YaxisClip(Spaciri3t Location: real! Major: integer! 

M a J s i z e » Mm size: real)! 
{ } 

{ This procedure draws an Y-axis at any intersection point on the plotting } 

{ surface. Parameters are as follows: } 

{ S p a c i n i : The distance between tick Mark son the axis. } 

{ Location: The X-value of the Y-axis. } 

{ Major: The number of tick marks to 3 e before d r a w i n i a major tick } 

{ mark. If MaJor=5> every fifth tick mark will be major. } 

{ MaJsize: The lentfthi in world units* of the major tick marks. } 

{ M i n s i z e : The 1 e n sf t h t in world u n i t s > of the minor tick marks. } 

{ } 

va r 

Y : real! 

SemiMinsize: real! 

SemiMaJsize: real! 

Counter: integer! {keeps track of when to do major ticks} 

b e i i n {body of procedure "YaxisClip"} 

Se m iMaJ5ize:=MaJsize* 0.55 
S e m i M i n s i z e : = M l n s i z e * . 5 5 

Counter: =0! {start with a major tick} 

ClipDraw (Location » C 1 i pYmin (Location t C 1 ipYmax ) ! 
Y: =Round2 (CI l pYmin tSpac in 3*Ma Jo r iDown ) ! {round to next lower major} 



Listings of Example Programs 177 



while Y < = C 1 ipYmax do besin 

if Counte r=0 then 

ClipDrawtLocation-SeiitiMaJsizetYiLacatioi-i + SemiMaJsize.Y) 

else 

ClipDrawtLocation-Semirlirisize tYtLocation+SemiMinsize tY) i 

Counte r: = (Counte r+1 ) mod Major i 

Y:=Y+Spacin3i 
end i {while} 

end! {procedure "YaxisClip"} 

$pase$ {###****#***##*♦*###***#**#****###******#**####♦*##**#***##**#******#} 

procedure Alpha(State: Displ a'/States ) i 

{ y 

{ This procedure turns the alpha raster on or off. } 

{ > 

c o n s t 

AlphaRaster= 1051! {mnemonic better than masic number} 

var 

AlphaOn: array [ 1 . . 1 ] of integer! { \ This is all stuff that } 

Rarrav: array [1..11 of real! { > is needed by the } 

Error: intesfer! { / "outPut_esc" procedure. } 

besfin {procedure "Alpha"} 

if State=0n then AlphaOnCl] : =1 
else AlphaOnCl] :=0i 

oijtPut_esc(AlphaRasteril lOtAlphaOntRarrayiError) i 

if ErrorOO then wri teln ( 'Er ro r 'tError:0.' in procedure "Alpha".')! 
end! {procedure "Alpha"} 

$pa3e* {*#**#*###*#####**##*#*#**#**♦##**#*#####****#*##***###*#*#**######*#} 
function LoSKXX: real): real! 

{ } 

{ This function returns the logarithm to the base ten of a number. } 

{ } 

const 

Log_10= 2.3025B509299! -C 1 o S to the base e of 10} 
beSin {function "LoslO"} 

LoJlO:=ln(X)/LoS_10; 

end i {function "LoslO"} 

$paSe$ {*##*##*#**##*****#***#***#*#***#**#*#***##»**#*****#*#**♦*#*##*#####} 
function XtoY(X» Y: real): real! 

{ -- } 

{ This function evaluates X to the Yth power. } 

{ - } 

besin {function "XtoY"} 

XtoY:=exp(Y*ln(X) ) i {an logarithmic identity} 

end! {function "XtoY"} 

*pa3e$ {#**#*#*♦*##***###♦#*»*##**#****#**•#***######**##***♦#*####*###*#****} 

procedure Gloadfvar Screen: GRaste rType ) i 

{ > 

{ This procedure loads a user's array into Graphics memory. } 

{ > 

besin {procedure "Gload"} 

GRaste r: =Sc reen i {copy user array into graphics memory} 

end! {procedure "Gload"} 
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$pa 3e$ {*#*♦##*♦#***##*♦#*#***###*####*##****#**************#♦***#***#***##*} 

procedure Gstore(var Screen: GRasterType)? 

{ } 

{ This procedure stores Graphics memory into a user's array. } 

{ } 

b e 3 1 n {procedure "Gstore"} 

Scree n:=GRasteri {copy Graphics m e in o r v into user array} 

end! {procedure "Gstore"} 

$pa3e$ {**#*###*♦#****##+##*##**#######**#****♦##♦*♦******#*#***♦***##*###*#} 

function S i 3 n ( X : real): integer! 

{ } 

{ This function returns the s i 3 n of a n u m b e r i i . e . » - 1 if the number is } 
{ neSativet if the number is zerot and +1 if the number is positive t > 

{ > 

be 3 in {function "SiSn"} 

Si 3n : =o rd (X>0,0) -o rd (X<0 .0) 5 {<0 -> -li =0 -> 0! >0 -':- 1} 

en d i { f unc 1 1 on "Si Sri " } 

$pa3e$ {*♦*####****#***###***##*#**#***#*#♦####**###*#*#■#*#*##***##**#***###} 
function In t ens i t y ( Wave 1 en St h > Temperature: real): real! 
b e 3 i n { f u n c t i o n "Intensity"} 

Intensity : = 37410/XtoY ( Wave 1 en 3th >5) I (exp( 14,39/ ( Wave 1 en 3th*Tempe rat u re ) ) -1 ) ! 
end! { f u n c t i o n " Intensity"} 

$pa3e$ it*******************************************************************} 
b e 3 i n { b o d v o f p r o 3 r a m " G s t o r P r o f " } 

3raphics_initi {initialize 3raphics library} 

display_ini t (Crt »Cont rol tEr ro r ) i {initialize CRT} 
if E r r o r = then b e 3 i n {if no error occurred...} 

AlphatOff ) ! 

set_aspect(Ratiotl)i {enable entire p 1 o 1 1 i n 3 surface} 

{===== Label the Sraph = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = } 

for I:=-3 to 3 io {seven iterations} { \ Write } 

MamTitle ( 1*0.002 tl » 'BlacRbodv Radiation')! { \ the four } 

XaxisTitle (0 >0.B3 > 'Temperature (K): ')! 
Y a x i s T i 1 1 e ( - 1 » . ' I n t e n s i t y of Radiation'); 
X a x i s T i 1 1 e ( t - . 9 2 i ' W a v e 1 e n 3 1 h (microns) ' ) i 
set_viewpo rt(0. 1 .0.98 .0, 15/Ratio tO.S/ Ratio ) ! 

{define subset of p 1 o 1 1 1 n 3 surface} 
Xmin:=-4i { sma 1 1 es t powe r f o r wave 1 en 3t h } 

Xmax:=3i { 1 a r 3es t powe r f o r wav e 1 en St h } 

Xranse : =Xmax-Xmin i {distance between X extremes} 

D x : = . 1 i {increment of X> 

Ymin:=-5i {smallest power for intensity} 

Ymax:=25i {larSest power for intensity} 

Yran 3e : =Ymax-Ymin ! {distance between Y extremes} 

D v : = 1 ! {increment of Y } 

s e t _ w i n d o u ( X m i n . X m a x . Y m i n . Y m a x ) i {scale the window for the data} 
{===== Draw and label logarithmic X-axis 3rid =============================} 

for Decade : =Xmin to Xmax do be3in {one decade equals one mantissa cycle} 
for Units: = l to l+8*o rd (Decade<Xmax ) do be3in {do 2-9 if not last cycle} 
X : =Decade + Lo 3l0(Un i ts ) i {calculate X for screen} 

in o v e ( X i Y m i n ) i { \ Draw a vertical line for } 

1 i n e ( X > Y in a x ) I { / Y-axis at appropriate place } 

end! {for units} 
end! {for decade} 

X : = X m i n i {startinS place for X-axis labels} 

S t r n 3 : = ' ' » {null out the strins} 



{ : 


> m a l n 


} 


{ / 


labels. 


} 


{/ 




} 
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while X< 

LabelJ 

CharSi 

in o u e ( X 

Glabel 

CharSi 

LabelJ 

m o g e ( X 

st rwri 

Glabel 

X:=X+D 

end! { w 

{===== D 

CI ipLimi 

YaxisCli 

YaxisCli 

Y:=Ymini 

while Y< 

m o g e ( X 

1 i n e ( X 

LabelJ 

CharSi 

m o g e ( X 

Glabel 

CharSi 

LabelJ 

moge ( X 

st rwri 

Glabel 

Y:=Y+5 

e ri d ! { u 

{===== H 

Gstore(S 

CharSize 

L a b e 1 J u s 

while t r 

read (K 

if Cha 

if (Ch 

Gloa 

I:=o 

Temp 

m o g e 

st rw 

Glab 

OldX 

01 dY 

X:=0 

whi 1 

Y: 

CI 

Dl 

X: 

end " 

end 

else i 

else w 

e ri d i { w 

e ri d i {Err 

1 : Sraphic 

end. {pro 



= X max do b e i i n 

ustify(HCentered (Top) i 

ze (0.025 .0.6) i 

tYmin-Y ran 3e *0 . 1 5 ) i 

( '10 ') i 

ze (0.015 tO.G) ! 

ustif v(Lef t (Bottom) i 

+ Xransfe*0.01 (Ymin-Yran Se*0.025) i 



te(St rnS (1 (I 



:0) 



(strlt rim(St rnS) ) i 

x*10! 

hi le> 

raw and label logarithmic 

t ( Xmin (Xmax (Ymin (Ymax ) ! 

p< 1 (Xmin (1 (0.01 (0.01 ) i 

p( 1 (Xmax (1 (0.01 (0.01 ) ! 



Write the 
labels for the 
X-axis. 



■axis S r i d =========================== 

{define soft clip limits for axes} 
{plot left Y-axis} 
{plot risht Y-axis} 
{starting value for y } 



= Y m a x do 

m i n ( Y ) i 
max ( Y ) ! 

ustif y (Ri 
ze( 0.025. 
min-Xran 1 
( '10') i 
z e ( , 1 5 . 
ustif y(Le 
m i n - X r a n 3 
telStrni . 
( s t r 1 1 r i m 
*Dy i 
hile} 
ere is wh 
o reen ) i 
(0.03(0.6 
tif y (Lef t 
u e do b e s 
e y b o a r d ( C 
racte r= 'i 
aracter>= 
d ( S o r e e n ) 
rd (Charac 
erature:= 
(0(25.6) i 
ri te ( St rn 
el (strlt r 
: = Km in ! 
:=Intensi 
ldX+Dx i 
e X<=Xmax 
= I n t e n s i t 
ipDraw(01 
dX:=X! 
= X+2*Dx i 
{while} 



b e i i n 



sf ht ('.'Centered) i 

o . 6 ) ; 

e*0.03 (Y) i 



{ \ Draw horizontal line for 

{ / an X-axis. 

{label oriJin: center of riant e 



. 6 ) 5 

ft (Bottom) i 

e*0.025 (Y+Yran<Je*0.01 ) i 

1 (I (Y:2:0) i 

(StrnS) ) i 



\ 



\ 



Write Y-axis 
labels in 
exponential 
f o rm. 



/ 



se} 



ere the action starts ====================================} 

{put the imaSe into array} 

{set up charsize for temperature} 

{set up label orisin for temperature} 



) ; 

(Bottom) ! 

in 

haracte r) i 

' then Characters 

' 1 ' ) and ( C h a r a c t e 

! 

te r)-ord( '0' ) i 

I*XtoY(10.3) i 



S ( 1 (I ( T e m p e r a t u r e : 1 5 : ) 
im(St rnS) ) i 

ty (XtoYdO(OldX) (Tempe 



do b e $ i n 
y ( X t o Y ( 1 i X ) ( T e m p e 
dX(LoSlCKOldY) ,X.L 

1 d Y : = Y i 



{set character from Keyboard} 

'0' i 
r < = ' 



S ' ) then b e i i n 

{load the i m a 3 e } 
{translate char to number} 
{build temperature} 
{move to where temp is to be} 
{translate to string} 
{label the temperature} 
{ X starting point} 
rature)! {Y starting point} 
{second point for X} 
{loop through all X s } 
rature)! {calculate current X } 
oilO(Y) ) Kdraw line after clipping} 
{sage new old galues} 
{speed up the curve} 



f Character '0' then Soto 1 

rite(*G) i 

hile true} 

or=0?} 

s_te rm ! 

sram "GstorProS"} 



{beep} 

{end of conditional code} 
{terminate Sraphics library} 
{end of prosram} 
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IsoProg 

p r o 3 r a m I s o P r o 3 ( input » o u t p u t (Keyboard) I 

import d 3 1 _ 1 1 b » d 3 1 _ i n q ! {access the necessary procedures} 

const 

Crt= 3 5 {device address of 3raphi.es raster) 

Control= 05 {device control word! isnored for CRT} 

Ratio= 1 . 313B24G7BSS 5 {aspect ratio of Model 23G screen} 

type 

RoundType= (Up tDown iNear ) 5 {used by function Round?} 

va r 

Error: inteSer! { d i spl ay_in i t return variable 5 = ok} 

Xmin iXmax lYimn tYmax : real! {isotropic units for window} 

Character: s t r i n 3 E 1 ] i {for continue m e 5 s a 3 e } 

ClipXmint ClipXmax: real! {soft clip limits in X} 

ClipYmint ClipYmax: real 5 {soft clip limits in Y) 

Keyboard: text! { n o n - e c h o i. n 3 i n p u t } 

$pa3e$ {***#**»****♦#♦*#*#***♦***##*********##*****#******#♦****************) 

procedure Frame! 

{ } 

{ This procedure draws a frame around the current window limits. } 

{ } 

c o n 5 1 

WindowLimi ts= 4505 {mnemonic better than masic number} 

type 

Limi tOrde r= (Xmint Xmax > Ymin lYmax ) 5 
L i m i t T y p e = array [ L i m i 1 r d e r ] of real! 

var 

Pac: packed array E1..11 of char! { \ These are the sundries } 

I a r r a y : a r r a y [ 1 . . 1 ] o f i n t e 3 e r 5 { \ needed by the call to } 
Window: LimitTypei { / the DGL procedure } 

Error: inte3eri { / " inq_ws " . } 

be3in {body of procedure "Frame"} 

i n =i _w s ( N i n d o w L i in i t s 1 > > U > P a c 1 1 a r r a y > W i n d o w , E r r o r ! 5 

if E r r o r = then b e 3 i n 

move (WindowEXmin] tWindowE Ymin] ) 5 {move to lower left corner} 

line (WindowEXmin] tWindowE Ymax ] ) 5 {draw to upper left corner) 

linefWindowEXmax] tWindowE Ymax ] ) 5 {draw to upper risht corner) 

linefWindowEXmax] tWindowE Ymin ] ) 5 {draw to lower risht corner) 

line(WindowEXmin] tWindowE Ymin] ) 5 {draw to lower left corner) 

end {Error=0?} 

else w rite In ( 'Error '»Error:0i' occurred in "Frame"')! 

end! {procedure "Frame") {return) 
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$p 

p r 

{- 

{ 

{ 

{- 

be 

if 



o cedure CI ipLimi t (Xmin * Xn 



max * Y in in i Ymax : real) 5 

he four Slobal variables which specify where the 



This procedure defines t 
soft clip limits are. 



en 
el 



en 
if 



en 
el 



en 
en 
$p 
pr 



Sin 

Xmin<Xmax then beSin 
ClipXmin : = Xmin i 
ClipXmax : = Xmax i 
d 

se beiin 
ClipXniin : = Xmax i 
ClipXmax : = Xmin i 
di 

Ymin<Ymax then beiin 
ClipYmin : =Ymin i 
CI ipYmax : =Ymax ! 
d 

s e b e i i n 
ClipYmin : =Ymax i 
ClipYmax: =Ymin i 



procedure "CI i pLimi t " > 
\ 

\ Force the minimum soft 

\ clip limit in X to be 

\ the smal le r of the two 

/ X values passed into 

/ the procedure. 



Force the minimum soft 
\ clip limit in Y to be 
\ the smaller of the two 
/ Y values passed into 
' the procedure. 



/ 



/ 



Je* {*#*#*#**#*####*##* 
cedure ClipDrawUl * Yl * 



procedure "ClipLimit"} 
###*####**#*###*#*#*#####*#**#♦#*###*#♦#*#*#*#####] 
X2, Y2: real) i 



This procedure takes t 
clip limits are the real 
and ClipYmax. These ma/ 



he endpoints of a line* and clips it. The soft 
Slobal variables ClipXmin* ClipXmax* ClipYmin* 
be defined through the procedure ClipLimit. 



lab 

1 

typ 

E 



var 



X 

{-- 

pro 

be 3 

Out 

if 

els 

if 

els 

end 

{-- 



el 

e 

d3es = 

utOfBounds= 



(Left tRiSht 
set of EdSe 



*ToPtBottom) ! 
S i 



{possible edies to cross) 
{set of edses crossed} 



ut »Outl *Qut2:0ut0fBounds ! 
» Y : real! 



cedure CodefX* Y: real! var Out 

in 

: = []> 

x<ClipXmin then Out:=Cleft] 

e if x>ClipXmax then Out : =[ ri Sht 3 i 

y<ClipYmin then Out : =Out+[bottom] 

e if y>ClipYmax then Out : =0ut+t top] i 



OutOf Bounds) i 

{nested procedure "Code"} 

{null set} 

{off left edsfe?} 
{off risfht edife?} 
{off the bottom?} 
{off the top?} 

{nested procedure "Code"} 
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beSin {body of procedure "ClipDraw"} 

Code(Xl (Yl lOutl ) i {fiSure status of point 1> 

Code(XZ )Y2 .OutZ) i {fiSure status of point 2} 

while (OutlOCl) or (0ut2<>[]) do beSin {loop while either point out of ranSe} 
if (Out l*0ut2)< >[ ] then Soto 15 {if intersection non-null, no line) 
if OutlOE] then 0ut:=0utl 

else u t : = u 1 2 i {Out is the non-empty one} 

if left in Out then b e S i n {it crosses the left edse} 

y :=Yl+( Y2-Y1 ) * ( CI ipXmin-Xl ) /(XZ-X1 ) HadJust value of y appropriately} 
x : =C1 ipXmin i {new x is left edSe} 

end {left in Out?} 
else if r i S h t in Out then besin {it crosses r i 3 h t edse} 

y : =Yl + ( Y2-Y1 )*(C1 ipXmax-Xl )/ (X2-X1 ) Had Just value of y appropriately} 
x : = C 1 i p K in a x i {new x is risht edse} 

end {risht in Out?} 
else if bottom in Out then b e 4 i n {it crosses the bottom e d 3 e > 

x: =X1 + (XZ-X1 )*(ClipYmin-Yl )/ (Y2-Y1 ) HadJust value of x appropriately} 
v : =C1 ipYmin ! {new y is bottom edse} 

end {bottom in Out?} 
else if top in Out then b e S i n {it crosses the top e d 4 e } 

x:=Xl + (X2-Xl )*(C1 ipYmax-Yl )/ (Y2-Y1 ) Had Just value of x appropriately} 
y :=ClipY(Tiax i {new y is top edse} 

end! {top in Out?} 
if u t = u 1 1 then b e S i n 

X 1 : = x i Y 1 : = y i C o d e ( x > y , u 1 1 ) > {redefine first end point} 
end {Out=Outl?} 
else b e 4 i n 

X2:=xi Y2 : =y 5 Code ( x tv t0ut2 ) i {redefine second end point} 
end! {else b e 4 i n } 
end! {while} 

m o v e ( x 1 > y 1 ) ! {if we Set to this point, the line...} 

1 ine ( x2 t>'2) ! {...is completely visible, so draw it} 

1: end! {procedure "ClipDraw"} 

$pa3e$ {*****#**♦*#**♦♦****** **************************************** *******} 
function RoundZ(N» M: real! Mode: RoundType): real! 

{ } 

{ This function rounds "N" to the nearest "M" > accord in 4 to "Mode". This } 
{ function worKs only when the arSument is in the ranSe of MININT . .MAXINT . } 

{ > 

const 

epsilon= 1E-10! {roundoff error fudse factor} 

var 

Rounded: real! {temporary holdinS area} 

Nesative: boolean! {f laS: " 1 1 i s ne Sat i ve?" } 

besin {body of "RoundZ"} 

NeSati ve : = (N<0.0) i {is the number negative?} 

if N e S a t i v e then b e S i n 

N : = a b s ( N ) I {uorK with a positive number} 

if Mode=Up then Mode:=Doun {if number is neSativet ...} 

else if Mode = Down then Mode:=Up» {,., reverse up and down} 
e n d i 
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case Mode of {should ue round the number...} 

Down: Rounded : =t rune (N/M)*M ! {...left on the number line?} 
Up: b e i i n 

Rounded :=N/M! {...risht on the number line?} 

if abs( Rounded- round (Rounded ) ) >epsi Ion then 

R o un d e d : = ( t r un c ( R o un d e d ) + 1 . ) *M 
else 

Rounded : =t rune (Rounded )*M ! 
end i 
Near: Rounded :=t rune (N/M+M*0.5)*M i {,,,to the nearest multiple?} 
end i {case} 

if NeSatiue then Rounded : —Rounded i {reinstate the sisn} 
Round2:=Rounded ! {assign to function name} 

endi {function "RoundZ"} 

*paJe* {#*******##**#♦#***#***#*******###*#*#*#*#*##*####****#**######**#*##} 
procedure Grid (XspacinS .Yspacins .XlocY .YlocX: real! XmaJor. YmaJor: integer! 

Xm in size. Yminsize: real)! 
{ } 

{ This procedure draws a Jrid on the plotting surface, with user-definable } 

{ minor tick size. Parameters are as follows: } 

{ XspacinS: The distance between tick marks on the X axis. } 

{ YspacinS: The distance between tick marks on the Y axis, } 

{ XlocY: The X-value of the Y-axis. } 

{ YlocX: The Y-ualue of the X-axis. } 

{ XmaJort The number of tick marks to Je before drawing a major tick } 

{ YmaJor: mark. If MaJor=5. every fifth tick mark will be major, } 

{ Xminsize: The length, in world units, of the X minor tick marks. } 

{ Yminsize: The length, in world units, of the Y minor tick marks. } 

{ } 

war 

X. Y: real! 

Xstart .Ystart : real i 

X s e m i M i n s i z e : real! 

YsemiMinsize: real! 

Counter: intesferi 
besin {body of procedure "Grid"} 

X s e m i M i n s i z e : = X m i n s i z e * . 5 i 
YsemiMinsize : =Ym ins ize*0. 5 i 

Xstart : =Round2(Cl ipXmin tXspacinS*Xma Jo r .Down ) i {round to next lower major} 
Ystart : =Round2(Cl ipYmin »Yspacin3*YmaJo r .Down ) i {round to next lower major} 
{===== Draw vertical major ticks ====================================== == ====} 

X:=Xstart i 

while X<=ClipXmax do be Sin 

ClipDrawfX.ClipYmin .X.ClipYmax) i 

X:=X+Xspacini*XmaJori 
end i 
{===== o raw horizontal major ticks ====================================== = ===} 

Y:=Ystart i 

while Y<=ClipYmax do beSin 

ClipDraw(ClipXmin .Y .ClipXmax »Y) i 

Y: =Y+Yspacin J#YmaJor i 
end! 
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{===== Draw vertical minor ticks ============================================} 

X : = X s t a r t i 

C o u n t e r : = » 

while XOClipXmax do besin 
if Counter < > the n b e a i n 
Y : = Y s t a r t » 
while Y < = C 1 i p Y m a x do be sin 

ClipDrawiX .Y-YSemiMins i ze tX » Y + YSem i Mins ize ) i 
Y : = Y + Y 5 p a c i n S i 
end! {while Y<=ClipYmax> 
end i {counter < > ? } 
Count e r := (Count e r+1 ) mod XmaJor! 
X: =X+Xspac inS ! 

end! {while} 

{===== Draw horizontal minor ticks ============■==============================> 

Y : = Y s t a r t \ 

Counte r: =0 5 

while Y<=C1 ipYmax do beSin 
if Counts r<>0 then besin 
X : = X 5 1 a r t i 
while XOClipXmax do besin 

ClipDraw(X-XSemiMinsize »Y .X+XSemiMi ns i ze »Y ) i 
X : =X+Xs pac in S i 
end! {while X<=ClipXmax} 
end j { counte r< >0?> 
Counter: = (Co unter+1 ) mod YmaJori 
Y: =Y+Yspao ins i 

end! {while) 

end! {procedure "Grid"} 

$paSe$ {**#♦***#*****#****#*#*#**#********##**♦*************#***************> 

procedure I s o t r o p i c N i n d o w ( W x m i n . W x m a x 1 1*1 y m i n i W y m a x : real) ! 

{ } 

{ This procedure allows the user to specify a window which forces the } 

{ units to be isotropic* i.e.t X units are exactly as Ions as Y units are. } 

{ - > 

const 

Viewpo rtLimits= 451! {mnemonic better than masic number} 

type 

L i m i 1 r d e r = ( V x in i n > V x m a x > U y m i n i V y max) i 
L i m i t T y p e = array C L i m i 1 r d e r 3 of real! 

ua r 

Pac: packed array [ 1 . . 1] of chari { \ ...sundry variables } 

Iarrav: array [1..1] of inteSeri { \ needed by the "inq_ws" } 
Viewport: L i m i t T y p e ! { /procedure! called to Set} 

Error: inteSeri {/window limits. > 

WxranSe. WvranSe: real! {X/Y ranSe in window (world) coordinates} 
UxranSe» V'/ranSe: real! {X/Y ranSe in viewport (virtual) coordinates} 
Wratiot '.'ratio: real! {aspect ratios of window and viewport} 
Wxmidt Wymid: real! {X/Y midpoints of window} 
WUratiot VWratio: real! {ratios of the ratios} 
Multiplier: real! {the amount to multiply the semiranSe by} 
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b e s i n {procedure "IsotropicWindow"} 

inq-wsC'iewportLimits »0 (0 (4 tPac darray (Viewport (Error) i {Set viewport limits} 
if ErrorOO then 

writelnt 'Erro r '»Error:0»' in procedure "Show".')! 

Wxran3e:=Wxwax-Wxinirii {ranSe of X in desired window} 

Wy ranSe:=Wymax-Wymin i {ranse of Y in desired window} 

Wratio:=WxranSe/W'/ran ie i {aspect ratio of desired window} 

UxranSe:=Uiewport[i,'xtiiax]-Uiewport['Jxmin] i {range of X in current viewport} 

VyranSe:=UiewportCUymax]-yiewport[Vymin] i {ransfe of Y in current viewport} 

Vratio:=UxranSe/Vy ranse i {aspect ratio of viewport} 

if absfVratioHabs (Wratio) then besin {need more room on top and bottom} 

Wymid:=Wymin+Wyran3e*0.5i {Y midpoint in desired window} 

WVratio:=abs(Wratio/Vratio) i {ratio of aspect ratios} 

Multiplier: =Wy ranSe*0.5#W , , l ratio i {what the Y ranSe must be extended by} 

W y w i n : = W v m i d - M u 1 1 i p 1 i e r 5 {new minimum Y for window} 

Wymax :=Wymid+Multiplie r i {new maximum Y for window} 
end 

else beiin {need more room on risht and left} 

Wxmid : = Wxmin + Wxran3"e*0.5i {X midpoint in desired window} 

VWratio:=abs(Vratio/Wratio) i {ratio of aspect ratios} 

Multiplie r: =Wx ranSe#0.5*MWratio i {what the X ranSe must be extended by} 

Wxmin:=Wxmid-Multiplieri {new minimum X for window} 

Wxmax:=Wxmid+Multiplieri {new maximum X for window} 
end! {vratio<wratio?} 

set_window(Wxmin tWxmax tW'/min iWymax) i {set window with twiddled parameters} 

end! {procedure "IsotropicWindow"} 
fpaSe* {###****##**####*###**##***#*****#***#♦*****#*#*********#************} 

beSin {body of program "IsoPros""} 

9Taphics_init i {initialize Graphics library} 

display_init(Crt (Control (Error) i {initialize CRT} 

if Error=0 then beSin {if no error occurred...} 

set_aspect(Ratio (1 ) ! {use the whole screen} 

while true do begin {until the cows come home...} 

w r i t e ( * 1 2 ) i {clear the alpha screen} 
prompt* 'Xmin ( Xmax ( Ymin ( Ymax: ')! {Jive the user the prompt} 

readln(Xmin (Xmax (Ymin (Ymax) i {read his/her answers} 

set_line_style(3)i {invoKe dashed line style} 

Frame! {draw dashed frame} 

IsotropicWindowfXmin tXmax (Ymin (Ymax) i {invoke isotropic units} 

ClipLimit(Xmin (Xmax (Ymin (Ymax) i {set soft clip limits to user's values} 

set_l ine_style ( 1 ) i {invoke solid lines} 

Gridl 1 (1 (0 (0 (1 (1 (1 (1 ) i {show isotropic Srid of requested area} 

prompt ( 'Press the space bar to So on.')! {user's continuation prompt} 

read(keyboard (Character) i {wait until user says to So on} 

clear.display ! {clear Graphics screen} 
end! {while} 

end! {Error=0?} {end of conditional code} 

9Taphics_te rmi {terminate graphics library} 

end. {program "IsoProi"} 
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JustProg 



pro 3 ram Jus tP ro i( output ) i 

import d3l_libid3l_imi 

const 

CrtAddr= 3i 

C o n t r o 1 W o r d = i 

type 

HJustif vType= 
UJustif yType= 
AnsType= 
Str255= 

va r 

E r r o r R e t u r n : i n t e 

H J u s t : H J u 5 

UJust: UJus 

I : i n t e 

Strns: str2 

Charklidth >CharHeis"ht : real 
HJustif icat ion: HJus 
UJust if i cat ion : UJus 
CharTheta: real 

tinclude 'DGLPRG:ConvUtoW '$ 

$pa3e$ {*##*##*#*##**##**#♦ 

procedure F r a m e ! 

{ 



{Set Graphics routines} 

{address of internal CRT} 
{device control! for CRT} 



(LefttBCentered.Rig'ht)i {horizontal Justification} 
(Bottom ('.'Centered tTop) i {vertical Justification} 
( D e 3 i R a d t G r a d ) i {used by procedure "LabelDirection"} 
striniC255]i {for the procedure "Glabel"} 



Se r i 
t if v 

t i f y 
is r ! 

55i 

i 

t if y 

1 1 f y 



{variable for initialization outcome} 
{horizontal Justification variable} 
{vertical Justification variable} 
{for the strwrite statement} 
{labelled text holder} 
{ \ These are Global variables } 
{ \ needed by the Label Just i fy/ } 
{ / LabelDi recti on/CharSize } 
i {/ series of procedures. } 

{needed by procedure "CharSize"} 



Type! 
Type! 



Type i 
Type! 



{ 

{--- 

cons 

Wi 

type 

Li 

Li 

va r 

Pa 

la 

Hi 

Er 

besfi 

i n q _ 

if E 

mo 

li 

li 

li 

li 

end 

else 

e n d i 



This procedure draws a frame around the current window limits. 



idowLimits= 450! 



{mnemonic better than maflic number} 



m i 1 r d e r = 

m i t T y p e = 



(Xmin . Xmax . Vmin .Ymax ) i 
array ELimitOrder] of real! 



c : 

r r a y : 
n d o w : 
ro r : 
n 

w s ( W i 

rro r = 

v e ( W i 

n e ( W i 

n e ( W i 

n e ( U i 

n e ( W i 

{Err 

writ 

{pr 



n d o w L 
the 
n d o w [ 
n d o w [ 
n d o w [ 
n d o w [ 
n d o w [ 

OT = 0? 

e 1 n ( ' 
o c e d u 



packed 
array 
L i m i t T 
i n t e 1 e 

i m i t s 1 t 
n b e sf i n 
Xmin] i W i 
Xminl ,Wi 
Xmax] .Wi 
Xmax] .Wi 
Xmin ] iWi 
} 

Error ' ) 
re "Fram 



array [ 1 , . 1 ] of chari 
[ 1 . . 1 ] of i n t e $ e r \ 
y p e i 
r ; 



{ \ These are the sundries 
{ \ needed by the call to 
{ / the DGL procedure 
{ / "ini_ws". 

Frame"} 



{body of procedure 
. Q i P a c 1 1 a r r a y > W i n d o w » E r r o r ) i 



n d o w C Y m i n ] ) 
ndowCYmax] > 
ndowCYmax] ) 
ndowLYmin] ) 
n d o w [ Y m i n ] ) 



{move to lower left corner} 

{draw to upper left corner} 

{draw to upper risht corner} 

{draw to lower risfht corner} 

{draw to lower left corner} 



Error:0>' occurred in "Frame' 
e"} {return} 
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*pa$e$ {##♦####♦#*###*#*****##**#**#*#*#*#*********#****#**♦*******##**#****> 

procedure CharSize (Hei ght t AspectRatia: real)! 

{ 



This procedure defines character cell size and the puts the Width and 
Height values into Global variables for later use. The arguments passed 
in are the height of the character cell in VIRTUAL coordinates* and the 
aspect ratio of the character cell. The values for the window limits 
may be anything! they are taKen into account and do not affect the size 
of the characters* since they are defined in virtual coordinates. This 
procedure* alons with Lorg and Ldir* define global variables for use by 
Glabel. 



{ 
{ 
{ 

{ 

{ 

{ 

{ 

{ 

{-- - 

var 
Width: 
XO» YO: 
XI t Yl: 

beSin 

ConvertVi 

ConvertVi 

Height:=H 

Width:=He 

set_char_ 

end i 

*page$ { 

procedure 



{temporary spot for width} 
{OtO (virtual) in world} 
{Id ( vi rtual ) in world} 
{body of procedure "CharSize"} 
{convert 0»0 in virtual to world} 
{convert Id in virtual to world} 
{convert height in virtual to world} 
ight#AspectRatio*(Xl-XO)/(Yl-YO) ! {convert width in virtual to world} 
size(Width (Height ) ! {invoKe the parameters} 

{procedure "CharSize"} 
tit******************************************?**********************} 

LabelDi rection(Di rection: real! Units: AngType)! 



real i 
real ! 
real i 

rtualToWorld(0(0(XO(YO) ! 
rtualToWorldd *1 (XI (YD i 
ei3ht*(Yl-Y0) i 



{ This 
{ Glabel 
{ di rect 

i 

const 
De«f_pe r 
Grad_pe 
b e 3 i n 
case Unit 
Dei: D 
Rad: i 
Grad: D 
end i {ca 
CharTheta 
set-text- 
end 5 

*pase* { 
procedure 
{ 

{ This 
{ LabelD 
{ v a r i a b 

{ 

b e i i n 
HJustif ic 
•J Just if ic 
end i 



procedure is used in conjunction with LabelOri Sin ( CharSize and 
. It sets the labelling' direction to be used( and places the 
ion into a global variable so Glabel can use it. 



_rad 
r_ra 

s of 
i rec 

i rec 

se} 
:=Di 
rot ( 

#### 
Lab 



= 57.2957795131! {180/pi: for converting degrees to radians} 
d= B3.G6197723G8! {200/pi: for converting grads to radians} 

{procedure "LabelDi rection"} 

tion:=Di rect ion/DeS_pe r_rad i {degrees to radians} 

{correct units already} 
tion: =Di rect ion/Grad_pe r_rad \ {grads to radians} 

rection! {put into a global variable} 

cos(CharTheta) (Sin(CharTheta) ) i {invoke the new text direction} 

{procedure "LabelDi rection"} 
###**#*#*#♦#♦*##***#******###*♦#*#************#***#*************} 
elJustif y (HJust: HJustif yType i YJust: MJust if yType ) i 



procedure is used in conjunction with procedures CharSize* 
i rection » and Glabel. This Just puts a value into Slobal 
les which will be subsequently used by Glabel. 



at ion :=HJust i 
ation:=yJust i 



{procedure "Label Just if y" } 



{procedure "Label Just if y" } 
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*paSe$ {*#*♦***##*#***#********#**#***##*♦**#*#***♦#**##**#**#***#######**##} 
function Atan(Y> X: real): real! 

{ > 

{ This function returns the value of the arctangent of )'/)<> placing' it } 
{ in the correct quadrant. If Y and X are both zerot the result is zero. } 
{ } 

const 

Pi= 3,14159295359; {pi} 

besin {function "Atan"> 

if X = 0.0 then At an : = ( Pi /2+Pi#o rd ( Y<0.0) )*o rd ( YOO, ) 
else Atan:=arctan(Y/X)+Pi*ord()«0.0)+2*Pi#ard( (X>0.0) and (Y<0.0) ) i 
end ! {function "Atan"} 

*page$ {#****#***#***#*#**#*♦*#***♦##*#**********#*******##*♦##**#####***##*} 

procedure GlabeHText: Str255)i 

{ } 

{ This procedure labels a strinS of text at the current pen position. } 
{ It taKes into account the current label direction (set by procedure > 
{ " L a b e 1 D i r e c t i o n " » the current character size (set by procedure } 

{ "CharSize")* and the current label Justification (set by procedure } 
{ "LabelJustif y" ) . } 

{ j. 

const 

CharBizeCode= 250! {mnemonic better than magic number} 

CurrentPosition= 259! {ditto} 

type 

Positions= (X(Y)i 

PositionType= array [Positions] of real! 

CharAttributes= (Width tHeiShth) ! 

CharAtt rType= array [CharAtt ributes ] of real! 
war 

Chars: integer! 

Charsize: CharAtt rType i 

LentHeiSht: real! {length and heisht of character string} 

D x * D y : real! 

RtTheta: real! {for rectangular- to-polar conversion} 

Pac: packed array E1..1] of char! { \ These are the } 

Iarrav: array [1..1] of integer! { \ sundry items } 

Position: Pos i t lonType ! { / needed for the } 

Error: inteseri { / call to "inq_ws"} 

beSin {procedure "Glabel"} 

inq_ws (CharSizeCode tO tO i2 )Pac tlarray iCharsize (Error) i {Jet pen position} 
if ErrorOO then uriteln ( 'Error ' »Erro r:0 » ' in "Glabel".')! 
Chars:=strlen(text) i 

Len:=Charsize[Width]*(7*Chars+2*(Chars-l ) )/9i {lensth minus inter-char Jap} 
Hei Jht :=Charsize[Hei Jhthl#8/15 i {heisht minus inter-line Sap} 

Dx:=Len*(-ord(HJu5tification)/2)i 
Dy :=Hei3ht*( -ordC'Justif ication)/2) i 

R: =s«*rt (Dx*Dx+Dy*Dy ) i { \ Convert to polar coordinates so } 

Theta:=Atan (Dy »Dx ) i { / rotation is easy. } 

Theta:=Theta+CharThetai {add the LabelDi rect ion ansle} 

Dx : =R#cos (Theta) i { \ Convert R and the new Theta back } 

Dy : =R*sin (Theta) i { / to rectangular coodinates. } 

ini_ws(CurrentPosition .0 iO »2 »Pac ilarray .Position >Erro r) i {Jet pen position} 
if E r r o r = then bejfin 

move ( Pos it i on[X] + Dx (Posit ion[Y]+Dy ) i {move to the new starting' point} 

gtext ( text ) i 
end {Error=0?} 

else writeln( 'Error' (Error: 0(' in "Glabel".')! 
end! {procedure "Glabel"} 



Listings of Example Programs 189 



*pa3e* {#**#***#*###♦***##*#*#*#*###**##*#***#*********#***#*#******##***#*#} 
beiin {body of proSram "JustProS " } 

sraphics_init ! {initialize the Sraphics system} 

display_init(CrtAddr tCont rolWord tErrorReturn) ! {which output device?} 
if Erro rReturn=0 then beSin {output device initialization OK?} 

set-aspect (51 1 (389) ! {use the whole screen} 

set_window( -1 t2.5 t-0.5 i2.5) i {scale the window for the data} 

Frame! {draw a frame around the screen} 

CharSize (0.03 tO.G) ! {width = 3Z screen width! asp. ratio=.G} 

LabelDi rection(O)Dei) ! {horizontal labels} 

{===== Labels at the top =======e========s=================================} 

LabelJust if y (HCentered .Top) ! {label's reference point: top middle} 

for HJust;=Left to RiUht do besin {horizontal loop} 

Strns:="i {null the strini so nothini left over} 

st rwrite (St rns .1 . 1 tHJust ) ! {convert enumerated type to strini} 

move( ord (HJust ) i2.4) i {move to the appropriate place} 

Glabel (St rni) i {label the string} 

end! {for HJust} 
{===== Labels on the left edSe ============================================} 

LabelJustify (Left tUCente red) i {label's reference point: left middle} 

for MJust:=Top downto Bottom do beSin {vertical loop} 

Strns:=''i {null the strins so nothins left over} 

st rwrite(St rnS tl .1 »VJust ) ! {convert enumerated type to strinsf} 

move (-0.9 to rd(MJust ) ) i {move to the appropriate place} 

Glabel (St rnS) ! {label the strins} 

end! {for VJust} 
{===== Labels ("TEST") with different Justifications ======================} 

CharSize (O.OB »0. 6) ! {characters a bit biSSer} 

for HJust:=Left to Riiht do besin {horizontal loop} 

for VJust:=Top downto Bottom do beSin {vertical loop} 

LabelJustif y(HJust tUJust ) ! {set label Justification} 

move(ord(HJust)+0.03.ord(MJust)+0.03) ! { \ } 

line(ord(HJust)-0.03.ord(VJust)-0,03) ! { \ Make the "x" at } 

move(ord(HJust)-0.03 to rd (YJust J+0.03) ! { / the appropriate } 

line(ord(HJust)+0.03 tord(UJust ) -0.03) ! { / place. } 

move( o rd (HJust ) tordCJJust) ) ! {move to label's startinS position} 

GlabeK 'TEST') i {label the text} 

end ! {for UJust} 
end! {for HJust} 
end! {Erro rReturn=0?} 

Sraphics_te rm! {terminate the Graphics packase} 

end. {prosram "JustPro*"} 
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LdirProg 

program LdirProSi {proSram name same as file name > 

import d 3 1 _ 1 i b i {access the necessary procedures} 

const 

C r t = 3 i {device address of Sraphics raster} 

Control 1 0! {device control word! ignored for CRT} 

type 

An3Type= ( De 3 »Rad (Grad ) ! {used by procedure LabelDi rec t i on} 

uar 

Error: inte3eri { d i spl av_ in i t return variable! = ok) 

I > J : integer! {loop control variable and spare} 

Strn3: strin3[50]i {strin3 to label} 

CharTheta: real! {3lobal variable for label direction} 

$pa3e$ {»##***#*#********♦**#***#****###*****♦**♦*■*###**#**♦**##*****#*##*♦#} 

procedure LabelDi rection(Direction: real! Units: A n 3 T v p e ) i 

{ } 

{ This procedure is used in conjunction with Labe lOri 3in i CharSize and } 
{ G 1 a b e 1 . It 5 e t s the labelling direction to be u s e d > and places the } 
{ direction into a slobal variable so G lab el can use i t • } 

{ } 

const 

De3_per_rad= 57.2957795131! {180/pi: for convertinS de3rees to radians} 
Grad_per._rad= G3.66197723B8 i {200/pi: for convertin3 3rads to radians} 
be Sin { procedu re "Labe IDi rect i on " } 

case Units of 

De3: Direction :=Direction/De3_per_rad! {desrees to radians} 
Rad: 5 {correct units already} 

Grad: Di rect ion : =Di rect ion/G rad_pe r_rad ! {Jrads to radians} 
end! {case} 

CharTheta:=Directioni {put into a Slobal variable} 

set_text_ rot ( cos (CharTheta) tsin ( CharTheta) ) ! {invoke the new text direction} 
end! {procedure "LabelDireotion"} 

$pa3e$ {*#**#**###*#**#*#******##*#**##*****##*#*******#*#####*#**#*#*#####*} 
be 3 in {body of pro 3 ram "Ldi rPro3" } 

3raphics_init! {initialize 3raphics library} 

display_init(Crt (Control tError) i {initialize CRT} 
if Error=0 then be3in {if no error occurred...} 

set.aspect ( 51 1 (389) ! {use the whole screen} 

s e t _ w i n d o w ( - 1 ( 1 ( - 1 ( 1 ) ! {define appropriate window} 

set_char_size (0.05 (0.08) ! {set the size for the characters} 

for I:=0 to 35 do be 3 in {every ten desrees) 

S t r n 3 : = ' ' i { e m p t y t h e s t r i n 3 } 

s t rwri te ( st rn3 ( 1 (J ( 1*10: 0) ! {convert the loop variable to desrees) 

Strn3: = ' ' + Strn3+' des'i {attach prefix and suffix} 

LabelDirection(I*10(De3)i {specify label direction} 

di o m e ( ( ) ! {mo veto the center of the screen} 

StexUSt rn3) ! {label the text} 

end! {for 1} 
end! {Error=0?} 

3raphics_te rm ! {terminate 3raphics library} 

end. { pro 3 ram "Ld i rPro 3" } 
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LOCATOR 



*debus$ 

program Test(output)! 

import d 3 1 _ v a r s )dsl_types > d 3 1 _ 1 i b i d 3 1 _ p o 1 v t d 3 1 _ i n i i 

type 

C d m m a n d s = « . 8 ? {nine commands total} 

RealArray= array [1 ( .5] of real! 

const 

FS= chr(28) i { risht arrow} 

BS= chr(B)i {left arrow or backspace} 

US= chr(31 ) ! {up arrow} 

LF= chr(10) 5 {down arrow} 

CR= chr(13)! {carriase return} 

MinX= Oi {minimum X ualue for screen} 

MinY= 0! {minimum Y ualue for screen} 

M a x X = 5115 {maximum X ualue for screen} 

MaxY= 389! {maximum Y ualue for screen} 

Xran3e= MaxX-MinXi {total ranse of X} 

Yran3e= MaxY-MinYi {total ranSe of Y} 

LocatorAddress= 2i {2 for knobi706 for 9111} 

uar 

Error_num: inteieri {error return variable} 

I i T e m p I n t : integer! {utility variables} 

ButtonValue: inteseri {which button selected?} 

XintYin: real! {location of digitized point} 

XlasttYlast: real! {last digitized point} 

Charklidth iCharHe i Sht : real! {char size in world coords} 

Done: boolean! {are we supposed to quit?} 

NewLine: boolean! {start new line?} 

TempSt rin 3: Gstrin3255! {utility variable) 
EchoSelecttEchoSelector: . . 9 i {menu selection} 

HenuTop: real i 

Cellklidth: real! {width of menu spaces} 

Command: Commands! {which command selected?} 

$pa3e$ {**###*##*#*##*#*#*#*#♦#*#*♦*#####**#*#♦##**#*#♦#*#*##*#**#**##***♦**} 

procedure D r a w M e n u i 

uar 

I: inteSer! {loop-control variable} 

Y 1 a b e 1 : real! {Y position of entree label} 

Y a r r a v : R e a 1 A r r a y ! 
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{ 

procedure M e n u C e 1 1 ( I : i n t e a 1 e r ) i 
y a r 

TempPi tch : 

X 1 a b e 1 : 

X a r r a y : 
b e i i n 
case I 

: be 
T 



real i 
real i 
R e a 1 A r r a y i 



end 
1 . . 1 

T 



of 

Sin 

empSt 

array 

array 

array 

array 

array 

label 

5 

: be 3 

e m p P i 

array 

array 

array 

array 

array 

empSt 

f I< = 

label 



r l n $ : 

[1] 

[2] 

[3] 

[4] 

[5] 



'STOP' i 
= 0! 

=2*CellWidthi 
= 2*Cel lWidth i 

= 0i 

= 0i 



{temporary u a r i a b 1 e } 
{ X position of entree label} 
{X positions of entree cell} 
{procedure M e n u C e 1 1 } 



{label text,} 
{ \ 



{ 

{ 

{ / 
{ / 



\ 



positions for box 



= MinK+Ce 1 lWi dth-s t rl en ( TernpSt r in sf ) *Cha rWi d t h/2 ! 



=CellWidth*I i 

= CellWidth+TempPitch ! { 

=2*CellWidth+TempPitch i { 

=2*CellWidth+TempPitch i { 

=Cel lWidth+TempPitch i { 

=CellWidth+TempPitchi { 



{temporary shorthand variable} 



\ 



positions for box 



i n 

tch : 

[11: 

[21: 

[31: 

[41: 

C51: 

rin «f s = ' 'i {label text} 

8 then s t rw r i t e ( T e m pS t r i n i 1 1 t T e m p I n t » 1 : 1 ) ! 

:=Xarray[l]+CellWidth/2+st rl en ( TempSt rinsf)*CharWi dth/2 i 



\ 



/ 



/ 



end 
end! { c 
p o 1 y 1 i n 

m o i.i e ( X 1 
•JtexUT 
end! 

{ 

b e 3 i n 

Y a r r a y [ 

Y a r r a y [ 

Y a r r a y [ 

Y a r r a y [ 
YarrayE 
Ylabel: 
for I:= 
end! { 
$paSe$ 

f unct io 

b e 4 i n 

if Xin< 

else be 
Tempi 
if Te 
else 

e n d i 

e n d ! 



as e I of} 

e < 5 t X a r r a y » Y a r r a / ) ! 
a b e 1 i Y 1 a b e 1 ) i 
empStrinJ) i 



{draw perimeter of cell} 
{move to the risht place} 
{label the text} 
{procedure MenuCell} 



1 ] : = M i n Y i 
2]:=MinYi 

3 ] : = M e n u T o p i 

4 ] : = M e n u T o p i 

5 ] : = M i r, Y i 



{procedure D r a u M e n u } 

{ \ 

{ \ 

{ > Y values for box 

{ / 

{ / 



=MinY+(MenuTop-MinY)/2-CharHeisht/2i {Y position of label} 
to 10 do MenuCell ( I ) ! {do all the entree cells} 
procedure DrawMenu} 

{****#*#***##*#**#*#**##*##*#********##*#***************♦************} 
n CheckMenufXin : real ) : Commands i 

{function ChecKMenu} 
2*Ce 1 lWidth then CheckMenu : =0 {X outside of menu?} 
Sin 

nt :=t runc( ( Xin-Cel lWidth ) /Cel lWidth ) \ {which sell chosen?} 

mplnt>8 then CheckMenu : =Command 
C h e c k M e n u : = T e m p I n t 

{function CheckMenu } 
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$paSe$ {***#*****#*****#**#***** 

b e S i n 

Sraphics_init i 

displav_init (3 »0 tErro r_Num) i 

if Error_Num<>0 then beSin 

w r i t e 1 n ( ' I failed to initialize 
writeln( 'Error number SError.N 
end {if Error_Num<>0} 
else b e S i n 

LOCATOR- in it (Locate r Ad dress .Err 
if Error_Num<>0 then beSin 
w r i t e 1 n ( ' I failed to initiali 
wri teln ( 'Er ro r number '»Error 
end {if Error_Num<>0} 
else b e S i n 

set_aspect(511 i3B9) i 

set_window(0»511 »0 .389) i 

CharWidth:=0, 035*511 ! 

CharHeiSht:=0. 05*389! 

set_char_size(CharWidth tCharH 

M e n u T o p : = Y r a n i e I i 3 ! 

CellWidth:=XranSe/12i 

DrawMenu! 

NewLine: = t rue i 

EohoBeleot: = 4! 

Command : = 4 i 

Done : = f alse i 

repeat 

if NewLine then 

EchoSelecto r: =2 
else 

EchoSelecto r:=EchoSelecti 
await_locator(EchoSelectort 
if Yin<MenuTop then be Sin 
NewLine: =t rue i 
C o mm an d : = C h e c K M e n u ( X i n ) S 
case Command of 
; D o n e : = t r u e i 
1: EchoSelect:=l i 
2: EchoSelect :=2i 
3: EchoSelect :=3i 
4: EchoSelect:=4; 
5: EchoSelect: =5! 
B: EchoSelect:=Bi 
7: EchoSelect:=7i 
B: EchoSelect:=8l 
end {case} 
end {if} 
else b e S i n 

if NewLine then be Sin 
NewLine:=false! 
set_echo_pos (Kin iYin ) i 
m o u 9 ( X i n > Y i n ) i 
Ylast:=Yini 
X 1 a s t : = X i n ! 
e n d 



#***#***#**#*###*#**#***♦**###*####*####*###} 

{Main proSram} 

{initialize the Sraphics system} 

{which output device?} 

{output devic initialization OK?} 
the display.')! 
um:2 i ' was returned. ' ) i 



o r_Num) i 

ze the locator.')! 
_Num:2i' was returned.')! 

{No errors so far} 
{use whole screen} 
{scale window for data} 
{char width: 3.5'Z of screen width} 
{char heisht: 51 of screen heisht} 
ei Sht ) i-Cinstall character size} 

{menu is 1/13 the total screen heisht} 

{each entree cell 1/12 screen width} 

{draw the menu} 

{vest we are startinS a new line} 

{start pros ram with default command} 

{ditto} 

{no* we're not done yet} 



{startinS a new line?} 



uttonUalue tXin tYin) ! 

{user choose menu option?} 
{start a new line next time} 
{determine menu selection} 
{which command} 

{vest we're done with the pros ram) 

} 
} 
} 
} 
} 
} 
} 
} 



{ 


\ 


{ 


\ 


{ 


\ 


{ 


\ 


{ 


/ 


{ 


/ 


{ 


/ 


{ 


/ 



Select the appropriate 
EchoSelecto r. 



{not a menu selection} 

{start a new line} 

{now we're in the middle of a line} 

{move the Sraphics cursor} 

{cause line-d rawinS to start there} 

{ remembe r the last X. . . } 

{ . . .and the last Y> 



194 Listings of Example Programs 



els 

s 
i 
e 



be 3 
_ec 
(Xi 
e b 
ase 
1. 



{draw a line) 



ot 
? n d ! 

(las 
i'las 



in 

h o _ p o s ( X i n . Y i n ) i { m o v e the i r a p h i c s cursor) 

n = X 1 a s t ) a n d ( Y i n = Y 1 a s t ) then NeuLine:=tr u e 
e 1 i n 
EchoSelect of 
. 7 : 1 i n e ( X i n » Y i n ) 
b e i i n 

1 i n e ( X 1 a s t , Y i n ) 

1 i n e ( X i n » Y in) ! 

1 i n e ( X in , Y 1 a s t ) 

1 ine ( XI ast .'Ylas t ) i 

N e u L i n e : = t r u e i 
end 
h e r w i s e 

{case EchoSe lect of } 
t : = X i n i 
t : = Y i n i 



{remember the last X . . . } 
{ ... and the last Y> 



e 

e n d 

end! 

1 1 i 1 D 

icato r 

. s p 1 a y 

{Err 



nd 

i 



u n 

lo 

di 
e n d 
e n d i 

3raphics_termi 
e n d . 



onei 
_t e rm i 
_t e rm i 
o r t rap} 



{are we do n e yet?} 
{terminate the locator} 
{terminate the display} 



{terminate the Graphics system} 
{Main program} 



LogPlot 



p r o 3 r a iii L o i P 1 o t ( K e y b o a r d > a u t p u t ) i 

import d i 1 _ 1 i b I 

const 

-4; 

2i 

o; 

3; 
3; 

Oi 



Xmiri = 
Xmax = 

Y m i n = 

Y m a x = 
Crt = 
C n t r 1 = 

type 

RDataType= 
const 

X v a 1 u e s = 

Y i.i a 1 u e s = 



{ \ } 

{ \ Decade minima } 

{ / and maxima. } 

{ / } 

{device address of Graphics raster} 

{device control word! ignored for CRT} 



array [ 1 . . 1 5 ] of real! 

RDataTypeCO.0003 1 0.0009, 0,004. 0.008. 0.01, 0.07, 0.22? 0.5; 

1.2, 2.6, 8.9. 18.6 1 34, 56. 97] i 
RDataTypeCl.l , 4.5, 13. 3B , 45.9. 60.33, 130.7. 346. 690.4, 

899, 933, 903. 841, 720, 505, 390] i 



var 

Error: integer! 

Decade: integer! 

Units, UpperLimit: inteser! 

X 1 Y : real! 

I : integer! 



{ d i s p 1 a y _ i n i t return variable! = ok} 
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$paSe$ {**##**###******#*##*###*#*#*#*#**##*##*#*#****#**#**#***##*#*###***#} 
function LoSlO(X: real): real! 

{ } 

{ This function returns the logarithm to the base ten of a number. } 

{ } 

const 

Los_10= 2.3025B509299! -C 1 o a to the base e of 10} 
beSin {function "LoSlO"} 

LoSlO:=ln(X)/Los_10i 

end! {function "LoSlO"} 

$pase* {******##**#*#***#**#**#**#♦*#**####*#****#*#**#***#♦#*###**#♦##*####} 
be sin {body of proSram "LosPlot"} 

Sraphics_init i {initialize the graphics system} 

display _init(Crt (Control (Error) ! 
if Error=0 then beSin 
set_aspect(51 1 (389) i 
set_window(Xmin >Xmax (Ymin (Ymax ) i 
{== = == Draw and label logarithmic X-axis Srid =============================} 

for Decade : =Xmin to Xmax do besin {one decade equals one mantissa cycle} 
if Decade=Xmax then Uppe rLimi t : = 1 
else Uppb rLimi t : =9 i 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle} 
X:=Decade+LoSlQ(Units) i 
move (X (Ymin ) i 
1 ine (X (Ymax ) i 
end! {for units} 
end! {for decade} 
{===== Draw and label loSarithmic Y-axis Srid =============================} 

for Decade:=Ymin to Ymax do beSin {one decade equals one mantissa cycle} 
if Decade = Ymax then L)pperLimit: = l 
else Uppe rLimi t : =9 ! 

for Units:=l to UpperLimit do beSin {do 2-9 if not last cycle} 
Y: =Decade+LoSlO(Units) \ 
m o v e ( X m i n t Y ) ! 
line (Xmax (Y) i 
end! {for units} 
end! {for decade} 
{==== = Draw the loSarithmic data curve ====================================} 

for I : = 1 to 15 do b e S i n 

if 1 = 1 then move (LoSlOf XYaluest 1 3 ) (LoSlO( YualuesC I ] ) ) 
else linetLoSiOOa'aluesCI]) (Losl0( Yval ues[ I ] ) ) i 
end! {for i } 
end! {Error=0?} {end of conditional code} 

Sraphics.term! {terminate Sraphics library} 

end. {prosram "LoSPlot"} 
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MarkrProg 

p r o 3 r a m M a r k r P r o 3 ( o u t p u t ) i 
import d 3 1 _ 1 i b i d 3 1 _ i n q i 
const 

CrtAddr= 3! 

C o n t r o 1 W o r d = i 

type 

Marke rNumType= array [0..4] of in tester! 

DataTv-pe = array [0..10] of inteseri 

const 

Marke rNumbe r= Ma rKe rNumTv pe [2 »5 iG >8 > 13] i 

Data= DataTypeC0i2)lt4t3t3tl(5>3^i6]i 

uar 

E rro rRetu rn : inteseri 

I i J : inteseri 

$pa3e$ {#***♦♦****#****************#**********************♦***#*#**#*♦#*****} 
be Sin {pros ram "Mark rPro 3" > 

3raphics_init i 

dis play _ i ni t (CrtAdd r (Control Word tErro rRetu rn ) i 
if E r r o r R e t u r n = then b e 3 i n 

set-aspect (511 i3B9) 5 

set_window(0 »10 »0 tlO) i 

m o v e ( 1 ) i 1 i n e ( 1 1 ) i 1 i n e ( 1 1 1 ) i 1 i n e ( 1 > ) i 1 i n e ( 1 ) i 

for I : = to l\ do b e 1 i n 
for J : = to 10 do b e i i n 

if JO0 then marke r( Marke rNumbe rt I ]) i 
if J = then m o v e ( J » D a t a [ J ] + 1 ) 
else line(J»DataCJ]+I)i 
end! {for J } 

e n d i {for i } 
end! { E r ro rRetu rn=0?> 
3raphics_te rmi 
end. { p r o s r a m " M a r K r P r o i " } 
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PLineProg 

program PLineProst output ) i 
import dsl-lib »d Jl_inq 5 
const 

CrtAddr= 3i 

Cont rolWo rd= Oi 
type 

RDataType= array CO. ,10] of real! 

const 

Xvalues= RDataTypeCO »1 ,2 »3 »4 (5 »B »7 »8 »9 >10] i 

YvaluES= RDataTypeCO t 2»l ,11,3 ,3,1 >5,3,ii »B] i 

war 

ErrorReturn: integer! 

X» Y: RDataTypei 

$pase$ {**#*#*#**#*#***##*#*#**##*******♦*#****###*#**#**#*#*#*#**#********#} 
beSin {proSram "PLineProS"} 

3raphics_ini t i 

display_init(CrtAddriControlWord (ErrorReturn) i 
if Erro rReturn=0 then besin 

set_a5Pect(511 >3B9) i 

set_window(0 * 10 ,0 tlO) i 

trioue(OtO)! line(0»10)i 1 i n e ( 1 » 1 ) 5 lineUO.O)! line(0,0)i 

X:=Xvaluesi Y:=Y values! 

polvlinedl »X,Y) i 
endi {Er ro rReturn=0?} 
s(raphics_teritii 
end. {proSram "PLineProS" } 
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PolyProg 



program P o 1 y P r o 3 ( o u. t p u t ) ! 
import 

d 3 1 _ 1 i b i d 3 1 _ t y p e s » d 3 1 _ p o 1 y , d 3 1 _ i n h i 
const 



l"laxPoiiUs = 

Crt = 

Control 1 
type 

R e a 1 s = 

W o r d = 

I n t e S e r s = 
const 

X u a 1 u e 5 = 



Y u a 1 u e s : 



p C o d e 5 : 



27! 

3; 

i 



{ p r o 3 r a (ti name same as file name) 

{access the necessary procedures} 

{number of points in arrays) 
{device address of Graphics raster} 
{device control word! ignored for CRT} 



array [ 1 . . M a x P o i n t s ] of real! 

-32768. .327G7; 

array [ 1 . . M a x p o i n t s ] of Word! 



{to c o n t a i n X a n d 
{16-bit word} 

{to contain op 



Y v a 1 u e s } 
selectors} 



RealsC 1.5, 2 

-2.5 » 2 

-2.5,-4 

2.5, 4 

-0.5,-1 

Reals! 1.0, 2 

1.0, 1 

-2.0,-4 

-2,0,-4 

-2.0,-3 

I n t e 3 e r s [ 2 



2, 
2, 



5, 2,5, 1.5,-1,5,- 
5, 2.5,-2.5,-2.5, 
5,-2.5,-5.0,-4.0, 
5 , 2.5, 5.0, 4.0, 



2.5,-2,5,-1.5: 



1. 

3. 



) 

),-2, 
, , 
, , 
),-3. 



. 5 ] i 

4.0, 4.0 i 
0,-2.0, 1 . , 
) , - 4 . , - 4 . > 
) , - 4 . , - 4 . , 
) , - 2 . ] i 



3,0: 



1.0 



,1 ,1 ,1 ,1 ,1 
,1 ,1 , 
,2,1 , 
,2,1 , 
,1] i 



{Octason) 

{Box} 

{Left les) 

{Risht 1 e 3> 

{Nozzle} 

{Octason} 

{Box} 

{Left leS) 

{Risht les} 

{Nozzle} 

{OctaSon} 

{Box} 

{Risht les} 

{Left les} 

{Nozzle} 



us r 

Error: 

I: 

L e m X , L e m Y : 

OpSe lectors: 

Points: 



inteseri { d i splav_in i t return variable; 

i n t e S e r i {loop control variable} 

Reals! {so we can pass it to "polySon"} 

InteSersi {ditto) 

inteseri {ditto} 



oK) 



$pa3e$ {♦*********♦*##*♦*******♦**#*****************************************} 

b e S i n 

LemX : =Xv al ues , 

L e iii Y : =Yvalues i 

0pSelector5:=0pCodesi 

Points:=MaxPoints i 

3raphics_init I 

d i 5 p 1 a y _ i n 1 1 ( C r t , C o n t r o 1 , E r r o r ) i 

if E r r o r = then b e 3 i n 

set_aspect(511 ,389) i 

set_window(-13,13,-10 ,10) i 

polySon ( Po ints ,LemX iLemY tOpSelecto rs ) i 



end! { E r r o r = ? } 

3raphics_term! 

end. { p r o 3 r a m " P o 1 y P r o < 



{body of prosram "PolyProS"} 

{ \ Put into variable array so } 

{ > it can be passed by } 

{ / reference into the DGL proc.} 

{put constant into an array variable} 

{initialize Sraphics library} 

{initialize CRT} 

{if no error occurred...} 

{use the whole screen} 

{invoke isotropic units) 

{draw the lines) 
{end of conditional code) 
{terminate Sraphics library) 
{end of pros ram) 
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SinAspect 



program SinAspect ( output ) ! 

import d3l_libi {set graphics routines} 

const 

CrtAddr= 3i {address of internal CRT} 

Cont rolklo rd= 0! {device control! for CRT} 
var 

ErrorReturn: inteSeri {variable for initialization outcome} 

X : i n t e s e r i 

Y: real! 

$include 'DGLPRGsDataPoint '$ {function: v:=f(x) } 

$paSe$ {##*######**#*##*#♦##**#**#*#**#*#*♦*#*****♦#*##**##*#♦*♦*#♦**###*#*#} 

beiin {body of program "SinAspect"} 

3raphics_initi {initialize the Sraphics system} 
display_init (CrtAddr tCont rolWo rd lErro rReturn ) i {which output device?} 

if Erro rReturn = then beSin {output device initialization OK'?} 

set.aspect (51 1 »383) i {use the whole screen} 

set_window(0 1 100 (0. 16 )0. 18) i {scale the window for the data} 

for X:=l to 100 do besin {100 points total} 

Y:=DataPoint(X)i {Set a point from the function} 

if X = 1 then m o v e ( X i Y ) {move to the first point...} 

else line(XtY) {...and draw to all the rest} 

end i {for )<: = 1 to 100} 
end! {Erro rReturn=0?} 

Sraphic5_termi {terminate the Graphics pacKaSe} 

end. {prosr am "SinAspect"} 
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Sin Axes 1 

p r o 3 r a m S i n A x e s 1 ( a u t p u t ) i 

import d S 1 _ 1 i b i d 3 1 _ i n q i * {Set s r a p h i c s routines} 

const 

CrtAdd r= 3i {address of internal CRT} 

Cont rolWo rd= 0! {device control! for CRT} 

type 

RoundT'/pe= (Upi Down t Near)! {used by procedure Round2} 

Mar 

CharWidth: real! {width of char in world coords} 

CharHeiSht: real! { h e i S h t of char in world coords} 

Text: s t r i n 3 [ Z ] ! {temporary holdinS place for text} 

E r ro rRet u rn : inteser! {variable for initialization outcome} 

X : i n t e 3 e r i 

Y: real; 

^include 'DGLPRG:Dat aPo in t '* {function: y:=f(x) } 

$pa3e$ it*******************************************************************} 

function R o u n d 2 ( N » M : real! Mode: R o u n d T y p e ) : real! 

{ } 

{ This function rounds "N" to the nearest "M"» according to "Mode". This } 
{ function worKs only when the arsument is in the ranSe of MININT . . MAXINT . } 

{ } 

const 

epsilon= lE-lOi {roundoff error fudie factor} 
va r 

Rounded: real! {temporary hold in 3 area} 

Negative: boolean; {f las: "It is neSative?"} 

besin {body of "RoundZ"} 

NeSat i ve : = (N<0 . ) i {is the number neSative?} 
if N e 3 a t i u e then b e 3 i n 

N : = a b s ( N ) ! {work with a positive number} 

if Mode = L)p then Mode:=Down {if number is neSative > ...} 

else if Mode = Down then Mode:=L)pi {...reverse up and down} 
e n d i 

c a s e M o d e o f {should we round the number...} 

Down: Rounded : = t rune ( N/M ) *M "•> {...left on the number line?} 
Up: besin 

R o u n d e d : = N / M i { . . . r i S h t on the number line?} 
if abs (Rounded- round (Rounded ) ) >epsi Ion then 

R o un d e d : = ( t r un c ( Ro un d e d ) + 1 . ) *M 
else 

Rounded : = t rune (Rounded )#M5 
e n d i 

Near: Rounded : =t rune ( N/M+M*0.5)*M ! {...to the nearest multiple?} 
end! {case} 

if NeSative then Rounded : =-Rounded 5 {reinstate the sisn} 

RoundZ: =Rounded i {assiSn to function name} 

end! {function "RoundZ"} 
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$pa3e$ {****###****#*#*#**#*#*##*##*#*****#***********#******#♦******#**#*#*} 
procedure Xaxis (Spacin 3 (Location » X m i n tXmax : real! 

Major: i n t e 3 e r i 
MaJsize tMinsize : real ) i 



This procedure draws an X-axis at any intersection point on the plotting > 

surface. Parameters are as follows: > 

SpacinS: The distance between tick marks on the axis, } 

Location: The Y-value of the X-axis. } 

XmintXmax: The left and risht ends of the X-axis* respectively. } 

Major: The number of tick marks to 3e before drawing a major tick > 

mark. If MaJor=5t every fifth tick mark will be major. } 

MaJsize: The lensth* in current units* of the major tick marks. } 

Minsize: The lenSth* in current units* of the minor tick marks. } 

} 



war 



real i 
real i 
real ! 
integer! 



SemiMinsize: 

SemiMaJsize: 

Counter: 
b e 3 i n 

move(Xmin (Location ) 5 
line(Xmax (Location ) i 
SemiMinsize:=Minsize*0.5i 
SeiiiiMaJsize:=MaJsize*0.5i 
X:=Round2(Xmin *Spacin 3*Ma Jo r *Down) i 
Counte r : =0 i 
while X<=Xmax do beSin 

if Counte r = then be Sin 

move(X (Location-SemiMaJsize) i 
line(XtLocation+SemiMaJsize) i 

end {Counte r=0?> 

else b e 3 i n 

move(X *Loo at ion -SemiMinsize ) i 
line(X*Location+SemiMinsize)i 

end! {else b e 3 i n } 

Counte r: = (Counte r+1 ) mod Major i 

X:=X+Bpacin3i 
end! {while} 
e n d ! 



{current X of tick marks} 

{half of minor tick size} 

{half of major tick size} 

{keeps track of when to do major ticks} 

{body of procedure "Xaxis"} 

{left end of the x-axis} 

{draw x-axis} 

{half of every tick mark needs to...} 

{...be on each side of the axis} 

{round start point to next lower major} 

{start with a major tick} 

{loop until 3reater than Xmax} 

{should we do a major tick?} 

{move to bottom of major tick* and...} 

{...draw to the top of major tick} 



{move to bottom of minor tick* and...} 
{...draw to the top of minor tick} 



{keep track of which lensth tick to 
{3o to next tick position} 
{loop if not done} 
{procedure "Xaxis"} 



do} 
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$pa3e$ {*»**#*####*##***#*****###**#*#*##**#**#■#**###**♦*###**##*###**######} 
procedure Y a x 1 s ( S p a c i n 3 , L o c a t i o n i Y m i n > Y in a x : real i 

Major: i n t e 3 e r i 
M a J s 1 z e t M i n s i z e : real)! 



This procedure draws an Y-axis at any intersection point on the plotting 

surface, Parameters are as follows: 

S p a c i n 3 : The distance between tick iri a r K s on the axis, 
The K - u a 1 u e of the Y-axis. 

The left and risht ends of the Y-axis » respectively, 
The number of tick marks to 3e before drawins a major tick 
mark, If M a j o r = 5 , e u e r y fifth tick mark will be in a J o r , 
The 1 en 3th, in current units, of the major tick marks, 
The 1 en 3th, in current units, of the minor tick marks, 



Location : 
Y m i n , Y max: 
Ma Jo r : 

Maj5 l ze : 
M i n s i z e : 



j a r 



real i 
real i 
reali 
i n t e 3 e r \ 
b e 3 i n 

m o u e ( L o c a t i o n , Y m in) i 
1 i n e ( L o c a t i o n , Y m a x ) ! 



i : 

S e in i M i n s i z e 
SemiMaJsize 
Counter: 
b e 3 i r 



in o v e \ l o c a 1 1 o n , i m in) i 

1 i n e ( L o c a t i o n , Y m a x ) ! 

S e m i M i n s i z e : = M i n s i z e *0 , 5 ! 

SemiMaJsize:=MaJsize*0.5i 



JC niiii<ii, 3 »:e:=l1aJ5ize*0,5! 
Y : =Round2( Ymin ,Spac in3*M 
C o u n t e r : = i 
while Y < = Y m a x do b e 3 i n 
if C o u n t e r = then b e 3 i v 



a j o r , D o w n ) i 



L o u n t e r = then b e 3 1 
m o u e ( L o c a t i o n - S e m i M a j s i z e , Y ) i 
1 i n e ( L o c a t i o n + S e m i M a j s i z e , Y ) i 

end {Counte r=0?} 

else b e 3 i n 



else b e 3 1 n 

m o u e ( L o c a t i o n - S e m i I* 
1 i n e ( L o c a t i o n + S e m i i* 

end! {else b e 3 i n } 



i M i n s i z e , Y ) i 
n + S e m i M i n s i z e , Y ) i 
{else besin} 
C o u n t e r : = ( C o u n t e r + 1 ) mod Major! 
Y : = Y + S p a c i n 3 ! 
end! {while} 
e n d i 



{current Y of tick marks) 

{half of minor tick size} 

{half of major tick size} 

{keeps track of when to do major ticks} 

{body of procedure "Axes"} 

{lower end of the y - a x i s } 

{draw y-axis} 

{half of every tick mark needs to.,,} 

{.,,be on each side of the axis} 

{round start point to next lower major} 

{start with a major tick} 

{loop until 3reater than Xmax} 

{should we do a major tick?} 

{move to left of major tick, and.,,} 

{...draw to the ri3ht of major tick} 



{move to left of major tick* and.,.} 
{ ,,, draw to the n3ht of major tick} 

{keep track of which lensth tick to do} 
{ 3 o to next tick position} 
{loop if not done} 
{procedure " Y a x i s " } 
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$paSe* ■(##**#**#*#♦**♦*#*#****#******#*#***#**********#*#*#*##***##***#***##} 
be Sin {body of pros ram "Sin Ax esl"} 

Sraphics_ini t ! {initialize the Graphics system} 

display_ini t (CrtAddr tCont rolWord tErro rReturn) i {which output device?} 
if Er ro rReturn=0 then besin {output device initialization OK?} 

set-aspect (511 »389) i {use the whole screen} 

Charklidth :=2*0.04 i {char width: 47, of screen width} 

CharHeiSht:=2*0.0B! {char height: 47, of screen heisht} 

set_char_size (CharWidth iCharHeiSht ) i {install character size} 
Text: = 'VOLTAGE UARIANCE'i {define text to be labelled} 

for X:=-3 to 3 do beSin {make "bold" label} 

move(-(strlen (Text )*CharWidth)/2+X*0.002 .0.9) i {center label} 
Stext(Text)! {label the text} 

e n d i 

set_text_rot (0 (1 ) i {vertical labels} 

CharWidth : =2*0.025! {char width: 2. 57, of screen width} 

CharHeiSht : =2*0 . 04 i {char heisht: 47, of screen heisht} 

set_char_size (CharWidth tCharHeiSht ) ! {install character size} 
Text:='Uolta5e'i {define the text to be labelled} 

move( -0.9 t-(strlen(Text )*CharWidth)/2) i {start point of centered label} 
Stext(Text)! {label the text} 

Text:='Time (seconds)'! {define the text to be labelled} 

set_text_rot(liO)i {horizontal labels} 

move(-(strlen(Text)*CharWidth)/2 f-0.92) ! {start point of centered label} 
stext(Text)! {label the text} 

set-viewport (0. 1 (0.99 (0. 12 (0.7) ! {define subset of screen} 
move ( -1 t-1 ) ! line(-ltl)! line(ltl)! line(lt-l)! 1 ine ( -1 »- 1 ) i {frame} 
set_window(0 ilOO tO. IB (0. 18) ! {scale the window for the data} 
Xaxist 1 »0. IB i-50 » 1 50 >5 i0. 001 (0.0005) i {draw the x-axis} 
YaxisfO.OOl >0 ,0, 1 >0.2 .5 >2 ,1 ) ! {draw the y-axis} 
for X:=l to 100 do beSin {100 points total} 

Y:=DataPoint (X) i {Jet a point from the function} 

if X=l then move(XtY) {move to the first point...} 

e 1 s e 1 i n e ( X > Y ) ! {...and draw to all the rest} 

end! {for X:=l to 100} 
end! {Er ro rReturn=0?} 

3 raphics_te rm i {terminate the Graphics packaSe} 

end. {pros ram "SinAxesl"} 
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SinAxes2 

p r o 3 r am S 1 11 A x e s 2 ( u t p u t ) i 

i m p r t d 3 1 _ 1 i b i { 3 e t 3 r a p h i. c s routines} 

const 

CrtAdd r= 3! {address of internal CRT} 

C n t r 1 W r d = 5 {device control! for CRT} 

type 

R u n d T y p e = (Upi Douni Near)! {used b v f u notion R u n d 2 } 

ua r 

Charkiidth : real! {width of char is world coords) 

CharHei3ht: real! {heisht of char is world coords) 

Text: s t r i n 3 [ 2 ] ! {temporary hoi din 3 place for text) 

E r r r R e t a r n : 1 n t e 3 e r i {variable for initialization outcome) 

I: inteseri {return variable from STRWRITE) 

X : 1 n t e 4 e r i 

Y : real! 

ClipXmint CI ipXmax: real! {soft clip limits in x) 

C 1 i p Y m i n 1 C 1 i p Y m a x : real! {50ft clip limits in •/} 

♦ include 'DGLPRG:Dat aPo in t '* {function: y:=f(x) ) 

$pa3e$ {***•**♦#♦##***#**#*****#***#***#*#*****#***♦************#♦#**#*****##} 
procedure CI i pL.imi t ( Xmin > Xmax 1 Ymint Ymax: real)! 

{ ) 

{ This procedure defines the four 3 1 b a 1 variables which specify where the } 
{soft clip limits are. } 

{ } 

be 3 in {body of procedure "CI ipLimit") 

if XmirKXmax then be3in { \ ) 

CI ipXmin : =Xmin i { \ Force the minimum soft ) 

CI ipXmax : =Xmax i { \ clip limit in X to be ) 

end { \ the smaller of the two) 

e 1 s e b e 3 i n { / X values passed into ) 

ClipXmin: =Xmax 5 { / the procedure. ) 

CI ipXmax : =Xmin 5 { / ) 

end! { / } 

if Ymin<Ymax then be3in { \ ) 

CI i pYmin : =Ymin 5 { \ Force the minimum soft } 

CI ipYmax : =Ymax 5 { \ clip limit in Y to be ) 

end { \ the smaller of the two) 

e 1 s e b e 3 i n { /Y values passed into. ) 

CI ipYmin :=Ymax ! { / the procedure. } 

C 1 i p Y m a x : = Y m in! { / ) 

end! { / ) 

end! {procedure "ClipLimit"} 
$pase$ {**♦***#*****#*****##****#****#*#************#♦****#***#**#***♦*****#} 
procedure ClipDrawfXlt Yl 1 X2 > Y2: real)! 

{ } 

{ This procedure takes the endpoints of a line* and clips it. The soft ) 
{ clip limits are the real Slobal variables ClipXmint CI ipXmax » ClipYmini ) 
{ and CLipYmax. These may be defined throush the procedure ClipLimit. ) 

{ ) 
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label 

1 i 
type 

EdSes= (Lef t *Ri Sht *Top *Bottom) i {possible edSes to cross} 

OutOf Bound s= set of EdSesi {set of edSes crossed} 

war 

Out tOutl (QutZsOutDf Bounds i 

X( Y: real! 
{ > 

procedure CodefX* Y: real! var Out: OutOf Bounds ) i 

b e S i n {nested procedure "Code"} 

Out:=[]i {null set} 

if x<ClipXmin then Dut:=[left] {off left edse?} 

else if x >C1 i pXrnax then Out : = [ ri Sht ] i {off risht edse?} 

if '/(ClipYmin then Out : =Out + Cbottom] {off the bottom?} 

else if y>ClipYmax then Out : =Out + [ top] i {off the top?} 

end! {nested procedure "Code"} 

{ } 

besin {body of procedure "ClipDraw"} 

Code(Xl *Y1 *Outl) i {figure status of point 1} 

Code(XZ*YZ tOutZ) i {fisure status of point 2} 

while (Outl<>[]) or (0ut2<>[]) do besin {loop while either point out of ranSe} 

if (Out l*0ut2)< >[ 1 then Soto 1! {if intersection non-null* no line} 
if OutlOU then Out:=Outi 

else u t : = u t Z i {Out is the non-empty one} 

if left in Out then besin {it crosses the left edse} 

y:=Yl + (Y2-Yl)*(ClipXmin-Xl)/(X2-Xl) KadJust value of y appropriately} 

x : =C1 i pXmin i {new x is left edSe} 
end {left in Out?} 

else if risht in Out then besin {it crosses risht edse} 

y :=Yl + ( Y2-Y1 )*( CI ip)<max-Xl ) / (X2-X1 ) KadJust value of v appropriately} 

x : =C1 ipXmax ! {new x is risht edse} 
end {risht in Out?} 

else if bottom in Out then besin {it crosses the bottom edse} 

x:=Xl + (X2-Xl )*(ClipYmin-Yl )/(YZ-Yl ) KadJust value of x appropriately} 

y : =C1 ipYmin i {new y is bottom edse} 
end {bottom in Out?} 

else if top in Out then besin {it crosses the top edse} 

x:=Xl + (X2-Xl )*(ClipYmax-Yl )/( YZ-Y1 ) KadJust value of x appropriately} 

y;=ClipYmaxi {new y is top edse} 
end! {top in Out?} 
if Out=Outl then besin 

X 1 : = x ! Y 1 : = y i C o d e ( x * y * u 1 1 ) i {redefine first end point} 
end {0ut=0utl?} 
else beSin 

X2:=xi YZ:=y! Code ( x >y *0ut2) i {redefine second end point} 
end! {else beSin} 
end i {while} 

m o u e ( x 1 f y 1 ) i {if we Set to this point* the linei.i} 

line(xZ*yZ)i {...is completely visible* so draw it} 

1: end! {procedure "CI ipD raw" } 
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$pa3e$ {****#***#***#***###******#*****##**#######***#*******#******#*******} 

function Round2(N, M: real! Mode: RoundType): real! 

{ > 

i This function rounds "N" to the nearest "M" > according to "Mode". This } 
{ function works only when the argument is in the range of MININT . . MAXINT . } 

{ > 

const 

e p s i 1 o n = 
va r 

Rounded: 

H e 3 a 1 1 v e : 
b e i i n 

Nesative: = (N < . ) i 
if N e $ a t i u e then b e 3 i n 

N:=abs(N) i 

if Mode = L)p then Mode:=Down 

else if Mode=Down then Mode: = Up i 
e n d i 
case Mode of 

Down : Rounded : =t rune ( N/M ) *M i 

Up: b e 3 l n 

Rounded: =N/Mi 

if abs (Rounded- round (Rounded ) ) >epsi Ion then 

R o un d e d : = ( t r un c ( R o un d e d ) + 1 . ) *M 
else 

Rounded : =t rune ( Rounded ) *M i 
e n d i 

Near: Round ed:=t rune ( N/M + M*0 . 5 ) *M i 
end! -Cease} 

if NeSative then Rounded : —Rounded i 
R o u n d 2 : = R o u n d e d i 
e n d i 

$pa3e$ {********************************************************************} 
procedure XaxisClip(Spacm3i Location: real! Major: integer! 

MaJsize.Minsize: real)! 



lE-iOi 

real i 
boolean \ 



{roundoff error f u d 3 e factor} 

{temporary h o 1 d i n 3 area} 
{ f 1 a 3 ; "It is n e 3 a t i v e ? " } 
{body of "RoundZ"} 
{is the number nesatiue?} 

{work with a positive n u m b e r } 
{if number is ne3atiue, , ,.} 
{ . i . r e u e r s e up and do w n } 

{should we round the n umber..,} 
{...left on the number line?} 

{.i.risht on the number line?} 



{...to the nearest multiple?} 

{reinstate the s i 3 n } 
{assign to function n a m e } 
{function "Round2"} 



{■ 



■} 



{ This procedure draws an X-axis at any intersection point on the plotting 1 } 



{ surface. Parameters are as follows: 



S p a c i n 3 : 
Location 
Ma Jo r : 

Ma Jsi ze : 
M i n s i z e : 



{ 
{ 
{ 
{ 
{ 
{ 
{ 

uar 

X : real! 

SemiMaJsize: real! 

S e m i M l n s i z e : real! 

Counter: integer! 



The distance between tick marks on the axis. 

The Y - v a 1 u e of the X-axis. 

The number of tick marks to 3e before drawing 1 a major tick 

mark. If M a J o r = 5 . every fifth tick mark will be major. 

The length* in world units, of the major tick marks, 

The 1 e n 3 X h > in world units, of the minor tick marks. 



{X position of tick marks} 

{half of major tick size} 

{half of minor tick size} 

{keeps track of when to do major ticks} 
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b e s i n {body of procedure "XaxisClip"} 

SemiMaJsize: = Ma JSize#0.5 ! {calculate half of major tioK size) 

SemiMinsize: =MinSiz e*0. 5! {calculate half of minor tick size} 

Counter: =0 5 {start with a major tick} 

ClipDrawtClipXmin (Location (ClipXmax (Location) ! {draw the X-axis itself} 
X:=Round2(ClipXmin iSpacinS#MaJor (Down) i {round to next lower major} 
while X<=ClipXmax do beSin {loop until Sreater than ClipXmax} 

if Co unt er=0 then {do a major tick mark?} 

ClipDr aw (X(Location-SemiMaJsizetX (Location +SemiMaJsize) 
else 

CI ipDraw(X (Location-SemiMinsize (X (Location+Semiliinsize ) i {do minor tick} 
Counter: =(Counte r + 1 ) mod Major! {keep track of which lensth tick to do} 
X:=X+Spacin Si {Jo to next tick position} 

end! {while} 

end! {procedure "XaxisClip"} 

$pa*e* {*###*####*#»#**##****♦**#**##*♦*********#*#*##**#****#*#*******#****} 
procedure YaxisClip(SpacinJ( Location: real! Major: integer! 
MaJsizet Mi n size: real)! 

{--- } 

{ This procedure draws an Y-axis at any intersection point on the plotting } 
{ surface. Parameters are as follows: } 

{ SpacinS: The distance between tick marks on the axis. } 

{ Location: The X-ualue of the Y-axis. } 

{ Major: The number of tick marks to ie before drawinsf a major tick } 
{ mark. If MaJor=5( every fifth tick mark will be major. } 

{ MaJsize: The length ( in world units » of the major tick marks. } 
{ Minsize: The lenStht in world units, of the minor tick marks. } 

{ ---} 

Mar 

Y : real! {Y position of tick marks} 

BemiMaJsize: real! {half of major tick size} 

SemiMinsize: real! {half of minor tick size} 

Counter: integer! {keeps track of when to do major ticks} 

beSin {body of procedure "YaxisClip"} 

SemiMaJsize: =MaJsize*0.5 5 {calculate half of major tick size} 

SemiMinsize: =Minsize*0, 5! {calculate half of minor tick size} 

C o u n t e r : = i {start with a major tick} 

CI ipD raw (Location (CI ipYmin (Location (ClipYmax ) i 

Y: =Round2(ClipYmin (Spacin3*MaJo r (Down) i {round to next lower major} 
while Y<=ClipYmax do beiin {loop until Greater than Ymax} 

if Counter=0 then {should we do a major tick?} 

ClipDr aw (Location-SemiMaJsize(Y(Location+SemiMaJsize(Y) 
else 

CI i pD r aw ( Lo cation-BemiM ins i ze (Y (Loc at ion+Semi Minsize (Y) i 
Counte r:= (Counter+1 ) mod Major! {keep track of which size tick to do} 
Y: =Y+Bpacinsi {3o to next tick position} 

end! {while} 
end! {procedure "YaxisClip"} 
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$pa3e$ {******#****#*#***************************#************************#*} 

be Sin {body of p ros ram "3inAxes2" } 

sraphics_initi {initialize the Graphics system} 
di splay_in i t ( C rtAdd r tCont rolWo rd tErro rReturn ) i {which output device?} 

if Erro rReturti = then beSin {output device initialization OK?} 

set_aspect (51 1 t389 ) ) {use the whole screen} 

CharWidth : =2*0,04 i {char width: HI of screen width} 

CharHeiSht:=2*0.0B> {char height: 47, of screen heisht} 

set_char_size(CharWidthtCharHeiSht)) {install character size} 

Text:='00LTAGE VARIANCE') {define text to be labelled} 

for X:=-3 to 3 do beSin {make "bold" label} 

move(- (st rl en (Text )*CharWidth ) /2+X*0, 002 t0.9) i {center label } 

Stext(Text)! {label the text} 
e n d i 

set_text_rot(0»l); {vertical labels} 

CharWidth: =2*0.025! {char width: 2. 57, of screen width} 

CharHeiSht ;=2*0.04i {char heisht: 47, of screen heisht} 

set_char_size(CharWidthtCharHei3ht)> {install char size} 

Text: = 'Volta«fe'i {define text to be labelled} 
move(-0.97 .-( st rlen(Text )*CharWidth) /2) i {start point of centered label} 

Stext (Text ) i {label the text} 

T e x t : = ' T i m e (seconds)'? {define text to be labelled} 

set_text_rot(itO)i {horizontal labels} 

move( -(strlen (Text )*CharWidth)/2 1-0.92) i {start point of centered label} 

Stext(Text)! {label the text} 

set.viewpo rt (0. 1 t0.99 M). 12 (0. 7) i {define subset of the screen} 
move ( -1 t-1 ) ! line(-ltl)) line(ltl)i line(lt-l)! line(-lt-l)! {frame} 

set-window (0 » 100 *0. IB >0, 18) i {scale the window for the data} 

CI ipLimi t (0 tlOO tO. 1G tO. 18) ! {define the soft clip limits} 

XaxisClip( 1 i0. 16 )5 tO. 0008 tO. 0004) ! {draw the clipped X-axis} 

YaxisClip(0.0005 )0 (5 »2 il ) i {draw the clipped Y-axis} 

CharWidth :=1 .3! {char width: 1.3 user X units wide} 

CharHei Sht : =0.0008 ! {char heisht: .0008 user Y units hish} 

set_char_size(CharWidth tCharHei Sht ) ! {install character size} 

T e x t : = ' ' i {erase previous definitions of s t r i n 3 } 

f o r X : = to 10 do b e S i n {eleven X labels} 

st rw ri t e ( Text >1 t I tX*10 : ) i {convert number to strins} 
move(X*10-(strlen(Text )#CharWi dth ) /2 .0, 1593) i {center the label} 

next (Text ) i {label the text} 
end! {for x } 

Y : = . 1 6 i { s t a r t i n 3 Y position for Y labels} 
repeat 

s t r w r i t e ( T e x t 1 1 t X » Y : G : 4 ) i {convert number to strins} 

move ( -8 tY-0 . 0002 ) i {center the text vertically} 

Stext (Text ) i {label the text} 

Y:=Y+0.0025i {next Y position} 

u n t i 1 Y > . 1 8 i { t e r m i n a t i n 3 condition} 

for X: = l to 100 da be 3 in {100 points total} 

Y : =DataPo int ( X) i {Set a point from the function} 

if X = 1 then m o v e ( X i Y ) {move to the first point...} 

e 1 s e 1 i n e ( X » Y ) i {...and draw to all the rest} 
end! {for X:=l to 100} 
end) {Erro rRetu rn=0?} 

Sraphics_te rm ! {terminate the Sraphics packaSe} 

end. {pro 3 ram "SinAxes2"} 
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SinClip 



program SinCl ip( output ) ! 

import dsl_lib! {Set Graphics routines} 

const 

CrtAddr= 3! {address of internal CRT} 

Cont rolWo rd= 0! {device control! for CRT} 

type 

RoundType= (Up» Down* Near)! {used by function RoundZ} 

var 

CharWidth: real! {width of char is world coords} 

CharHeiSht: real! {height of char is world coords} 

Text: 5trin3C20]i {temporary holding place for text} 

ErrorReturn: integer! {variable for initialization outcome} 
X : i n t e S e r i 
Y: real! 

ClipXmini ClipXmax: real! {soft clip limits in x} 

ClipYmin* ClipYmax: real! {soft clip limits in y} 

tinolude 'DGLPRG:DataPoint '$ {function: y; = f(x) } 

$paSe$ {**#********##*********#**#******#***#**#***#***#****###**###♦*#***#*} 

procedure CI i pLimi t (Xmin t Xmax » Ymin. Ymax: real)! 

{ } 

{ This procedure defines the four Slobal variables which specify where the } 
{ soft cl ip limits are. } 

{ - -- } 

b e S i n 

if Xmin<Xmax then beiin { \ } 

ClipXmin: =Xmin ! { \ Force the minimum soft } 

ClipXmax: =Xmax i { \ clip limit in X to be } 

end { \ the smaller of the two} 

e 1 s e b e 1 i n { /X values passed into } 

ClipXmin: =Xmax i { / the procedure. } 

Clip Xmax:=X mini {/ } 

end! { / } 

if YminO'iiiax then besin { \ } 

ClipYmin: =Ymin i { \ Force the minimum soft } 

ClipYmax:=Ymax ! { \ clip limit in Y to be } 

end { \ the smaller of the two } 

e 1 s e b e S i n { /Y values passed into } 

Cl i pYmin :=Ymax i { / the procedure. } 

Cl ipYmax :=Ymin i { / } 

end! { / } 

end i 

$paSe$ {****##****##******#*******##*****#***###***#*******#**##**##**#*##**} 

procedure ClipDraw(Xlt Yl i X2 » Y2: real)! 

{ } 

{ This procedure takes the endpoints of a linei and clips it. The soft } 
{ clip limits are the real Slobal variables ClipXmin > ClipXmax > ClipYmin i } 
{ and ClipYmax. These may be defined throuSh the procedure ClipLimit. } 

{ } 

label 

1 i 
type 

Ed*es= (Left tRiSht iTop (Bottom) i {possible edses to cross} 

OutOfBounds= set of EdJesi {set of edses crossed} 

var 

Out .Dutl »0ut2:0ut0f Bounds i 

X, Y: real! 
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{ -} 

procedure C o d e ( X » Y : real! v a r Out: u 1 f B o u n d s ) ! 

b e 3 i n {nested procedure" Code "> 

Out : = C 3 i { n u 1 1 s e t } 

if xCClipXmin then Out:=[left] {off left edse?} 

else if x>ClipXmax then Out : = [ n 3ht ] i {off ri3ht edse?} 

if y<ClipYmin then Out : =Out+[ bott om] {off the bottom?} 

else if y>ClipYmax then Out : =0ut + [ top] i {off the top?} 

end! {nested procedure "Code"} 

{ ---} 

be <r in {body of procedure "ClipDraw"} 

C o d e ( X 1 » Y 1 1 u 1 1 ) i { f l 3 u r e status of point 1 } 

Code(X2»Y2»0ut2) i {fiSure status of point 2} 

while (OutlOEl) or (0ut2<>[]) do be3in {loop while either point out of ranse} 
if (Out l#0ut2)<>[ 3 then Soto li {if intersection non-null » no line} 
if Outl<>[] then Out:=Outl 

else u t : = u 1 2 i {Out is the non-empty one} 

if left in Out then b e 3 i n {it crosses the left e d 3 e } 

y : =Yl + ( Y2-Y1 ) *(C1 i pXmin-Xi )/(X2-Xl) HadJust value of y appropriately} 
x: =C1 ipXmin i {new x is left edie} 

end {left in Out?} 
else if r i 3 h t in Out then besin {it crosses r i 3 h t e d 3 e } 

y:=Yl + ( Y2-Y1 )*(ClipX(itax-Xl ) /(X2-X1 ) UadJust value of y appropriately} 
x : =C1 ipXmax i {new x is risht ed3e} 

end {risht in Out?} 
else if bottom in Out then b e 3 i n {it crosses the bottom e d 3 e } 

x : = X 1 + ( X2 - X I ) * ( C 1 i pY m i n - Y 1. ) / < YZ - Y 1 ) !{adJust value of x appropriately} 
y : = C 1 i p Y m i n i { n e w y i s b o 1 1 o m e d 3 e } 

end {bottom i n Out?} 
else if top in Out then b e i i n {it crosses the top e d 3 e } 

x : = X 1 + ( X 2 - X 1 )*(C1 ipYmax-Yl ) / ( Y2-Y1 ) i{adJust value of x appropriately} 
y : =C1 ipYmax i {new y is top edse} 

end! {top in Out?} 
if Out=Outl then be3in 

X 1 : = x ! Y 1 : = y i C o d e ( x t y > u 1 1 ) i {redefine first end point} 
end {Out=Outl?} 
else b e 3 i n 

X2:=xi Y2:=yi Code ( x r/ t0ut2) i {redefine second end point} 
end! {else b e 3 i n } 
end! {while} 

m o v e ( x 1 i y 1 ) i {if we 3et to this point) the line...} 

line(x2f/2); {.,, i s complete 1 y vis ib le i so d raw it } 

1: end! {procedure "ClipDraw"} {return} 

*pa3e$ {*#**#**#♦###***###*#****##**********#*******************#***********} 
function Round2(N* M: real! Mode: RoundType): real! 

{ } 

{ This function rounds "IM" to the nearest "M" > accord in 3 to "Mode". This } 
{ function works only when the argument is in the ran3e of MIN I NT . . MAXINT . } 
< } 

const 

epsilon= 1E-10! {roundoff error fud3e factor} 

var 

Rounded: real! {temporary hoi din 3 area} 

Ne3ative: boolean; {f la3: " I t is ne 3at i ve?" } 
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be Jin {body of "Round2"> 

NeSat i ve : = (N<0.0) i -C i s the number negative?} 

if Nesative then beiin 

N:=abs(N)i {work with a positive number} 

if Mode=Up then Mode:=Down {if number is negative* ...} 

else if Mode=Down then Mode:=Upi {...reverse up and dawn} 
end ! 

case Mode of {should we round the number...} 

Down: Rounded :=t rune (N/M)*M! {...left on the number line?} 
Up: besin 

Rounded:=N/Mi {...riJht on the number line?} 

if abs (Rounded- round (Rounded )) >epsi Ion then 

Rounded :=( t rune (Rounded )+l . 0)*M 
else 

Rounded : =t rune ( Rounded )*M ! 
end! 
Near: Rounded : =t rune (N/M+M*0. 5)#M i {...to the nearest multiple?} 
end! {case} 

if Negative then Rounded : —Rounded ! {reinstate the sisn} 
RoundZ: =Rounded i {assiSn to function name} 

end! {function "RoundZ"} 

$pa4e$ {###**#♦##**#**#**#*#*#*###**##*#**#**##*##*####**#*####*#*#####*#*##} 
procedure XaxisClipJSpacinS . Location: real! Major: inteser! 
MaJsizetMinsize: real)! 

- } 

This procedure draws an X-axis at any intersection point on the plotting } 

surface. Parameters are as follows: } 

SpaeinS: The distance between ticK marKs on the axis. } 

Location: The Y-value of the X-axis. } 

Major: The number of ticK marKs to 3e before drawing a major tick } 

mark. If MaJor=5» every fifth tick mark will be major. } 

MaJsize: The lensftht in world units > of the major tick marks. } 

Minsize: The lensftht in world units* of the minor tick marks. } 

} 



va r 

X : real! 

SemiMaJsize: real ! 

SemiMinsize : real ! 

Counter: integer! {keeps track of when to do major ticks} 

beiin {body of procedure "XaxisClip"} 

SemiMaJsize:=MaJSize*0.5! 
SemiMinsize:=MinSize*0.5i 

Counter:=Oi {start with a major tick} 

CI ipDrawtClipXmin (Location tClipXmax) Location)! 

X: =Round2(Cl ipXmin »SpacinS*MaJo r (Down ) ! {round to next lower major} 
while X<=ClipXmax do beSin 

if Counter=0 then 

ClipDrawfXtLocation-SemiMaJsizetXtLocation+BemiMaJsize) 

else 

ClipDraw(XiLocation-SemiMinsizetX»Location+BemiMinsize)! 

Counte r: = (Counter+1 ) mod Major! 

X:=X+Spacin<f i 
end! {while} 
end! {procedure "XaxisClip"} 
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*paSe$ {##**#*####♦***♦****##*#***♦***##**##*********#*♦#****#****##****#*#*> 
procedure YaxisClip(SpacinS. Location: real! Major: integer! 
M a J s i z e i Min size: real)! 

{ > 

{ This procedure draws an Y-axis at any intersection point on the plotting } 
{ surface. Parameters are as follows: } 

{ Spacing: The distance between tick marks on the axis. > 

{ Location: The X-value of the Y-axis. > 

{ Major: The number of tick marks to Se before drawing a major tick > 
{ mark. If MaJor=5i every fifth tick mark will be major. } 

{ MaJsize: The lensthi in world units i of the major tick marks. } 
{ M i n s i z e : The lensthi in world u nits » of the minor tick marks. } 

{ } 

ii a r 

Y: real! 

S e m i M i n s i z e : real! 
SemiMaJsize: real! 

Counter: i n t e S e r i {keeps track of when to do major ticks) 

besin {body of procedure "YaxisClip"} 

SemiMaJ5ize:=MaJsize*0.5i 
S e m i M i n s i z e : = M i n s i z e * . 5 ! 

C o u n t e r : = i {start with a major tick} 

ClipDraw (Location » C 1 i pYmin (Location » C 1 ipYmax ) i 

Y: =RoundZ(Cl ipYmin tSpac in S*Ma J o r iDown ) i {round to next lower major} 
while Y<=CLipYmax do besin 
if Counter=0 then 

CI ipD raw (Location -SemiMaJsize tY iLocation+SemiMaJsize iY) 
else 

CI ipDrawfLocation-SemiMinsize .Y iLocation + SemiMinsize iY) i 
Counte r: = (Counter+1 ) mod Major! 
Y:=Y+SpacinS5 
end! {while} 

end! {procedure "YaxisClip"} 

$paSe$ {♦***##♦######***##***#***#**#*******♦#***#*##*****♦***#♦**###**#***♦} 
besin { pros ram "SinCl ip" } 

Sraphics_init! {initialize the Sraphics system} 

displ ay_in i t ( C rtAdd r tCon t ro lWo rd iEr ro rReturn ) i {uhich output device?} 
if Er ro rRetu rn=0 then besin {output device initialization DK?} 

set_aspect (51 1 t3B9) ! {use the whole screen} 

CharWidth : =2*0.04! {char width: ti'l of screen width} 

CharHeiSht :=2*0.08! {char heisht: B"l of screen heisht} 

set_char_size (CharWidth iCharHei Sht ) ! {install the character size} 
Text:='UOLTAGE VARIANCE' i {define the text to be labelled} 

for X : = - 3 to 3 do b e S i n {make "bold" label} 

move(-(strlen(Text)*CharWidth)/2+X*0,002 .0.9)5 {center label} 
Stext(Text)! {label the text} 

e n d ! 

set_text_rot(Oil)! {vertical labels} 

CharWidth :=2*0. 025! {char width: 2.57. of screen width} 

CharHei Sht : =2*0.04 ! {char heisht: HI of screen heisht} 

set_char_s lze (CharWidth iCharHeiSht ) ! {install character size} 
Text:='VoltaSe'i {define text to be labelled} 

move ( -0.9 .-( st rlen (Text )*Cha rWidth )/2) ! {start point of centered label} 
Stext(Text)! {label the text} 

Text:='Time (seconds)'! {define text to be labelled} 

set_text_rot(ltO)i {horizontal labels} 

move(- (st rlentText )*CharWidth)/2 1-0.92) ! {start point of centered label} 
Stext(Text)! {label the text} 
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set_viewport<0.1 tO. 99.0.12(0.7) ! {define subset of window) 
move(-li-l); 1 i n e ( - 1 ( 1 ) i 1 i n e ( 1 > 1 ) i 1 i n e ( 1 i - 1 ) i line(-lt-l)! {frame} 

set_window(0 (100 (0. 16 (0. 18) ! {scale the window for the data} 

ClipLimit (0 .100 (0. 16 .0, IB) ! {define the soft clip limits} 

XaxisClipf 1 .0. 16 (5 .0.0008 .0.0004) ! {draw the clipped X-axis} 

YaxisClip(0,001 .0 .5 .2 tl ) ! {draw the clipped Y-axis} 

for X:=l to 100 do besin {100 points total} 

Y;=DataPoint (X) i {Set a point from the function} 

if X=l then move(X.Y) (move to the first point...} 

else line(X.Y)! {...and draw to all the rest} 
end i {f or X: = l to 100} 
end! {ErrorReturn=0?} 

Sraphics_term i {terminate the Sraphics pacKaSe} 

end. {pros ram "SinClip"} 



SinLabell 



program BinLabel 1 (output ) i 

import dsl_lib» dsl_inq! {set sraphics routines} 

const 

CrtAddr= 3! {address of internal CRT} 

ControlWord= Oi {device control! for CRT} 
V a r 

ErrorReturn : inteSer! {variable for initialization outcome} 

StrnS: strinSC7]i {seven characters in 'Voltase'} 

Character: inteSer! {loop counter for labelling} 
X : inteSer; 
Y: real! 

^include 'DGLPRG:DataPoint '$ {function: y:=f(x) } 

$paSe$ {#**##*♦**##****#*****#*##*##*#*####*#*##*#*#*##*##*###*##**#*#*#*•*##} 

beSin {body of program "SinLabell"} 

Sraphics_init ! {initialize Sraphics system} 
display_init (CrtAddr .Cont rolWo rd .Erro rReturn ) i {which output device?} 

if Erro rReturn=0 then besin {output device initialization OK?} 

set-aspect (511 .389) i {use the whole screen} 

move( -0.45 .0.9) i {starting point for the title} 

Stext( 'VOLTAGE VARIANCE')! {label the plot} 

StrnS:= 'VoltaSe ' i {the y-axis label} 

move (-0.95 .0.3) ! {startinS point for the y-axis title} 
for Character: = 1 to st rlenfSt rnS) do {follow every character...} 

Stext(str(StrnS.Character . 1 )+ch r ( 13) +ch r ( 10) ) ! {...with a CR/LF} 

move(-0.3 t-0.9) ! {startinS point for the x-axis label} 

stext('Time (seconds)')! {x-axis label} 

set_viewport(0. 1 .0.99 .0. 12 .0.7) ! {define subset of screen} 
move(-l.-l)! line(lt-l)! line(lil)! line(-ltl)! line(-li-l)! {frame} 

set_window(OtlOO»0,16t0.18) ! {scale the window for the data} 

for X: = l to 100 do be 3 in { 100 points total } 

Y:=DataPoint (X) ! {Jet a point from the function} 

if X=l then move(X.Y) {move to the first point...} 

else line (X tY) ! { . , , and d raw to al 1 the rest } 
end ! {for X: = l to 100} 
end! {Erro rReturn=0?} 

sraphics-term! {terminate the Graphics pacKaSe} 

end. {pros ram "SinLabell"} 
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SinLabel2 

pro 3 ram S inLabe 12 ( out put ) i 

import dsl-libt dsl_in=ii {Set Graphics routines} 

const 

CrtAddr= 3! {address of internal CRT} 

ControlWord= 0! {device control; for CRT} 
var 

CharWidth: real! {width of character in world coords} 

CharHeiSht: real! {heisht of character in world coords} 

Text: st rinsC 20]! {temporary ho Id in 4 place for text} 

Erro rReturn : integer! {variable for initialization outcome} 
X : integer! 
Y : real! 

*include 'DGLPRG: DataPoint '$ {function: y:=f(x) } 

tpase* {******************************************************************** } 

h e $ i n { b o d v o f p r o § r a m " B i n L a b e 1 2 " } 

3raphics_init! {initialize the Graphics system} 
displav-init (CrtAddr .Cant rolWord »Er ro rReturn ) ! {which output device?} 

if ErrorReturn=0 then beiin {output device initialization OK?} 

set_aspect (511 .389) ! {use the whole screen} 

CharWidth :=2#0. 04! {char width: HI of screen width} 

CharHeiSht: =2*0.08! {char height: BI of screen height} 

set_char_size (CharWidth tCharHei Sht) ! {install character size} 

Text := 'VOLTAGE VARIANCE'! {define the text to be labelled} 

move(-( st rlen(Text)*CharWidth)/2 .0.9) !{<fa to start point for centered label} 

Stext(Text)> {label the text} 

set_text_rot(Oil)i {vertical labels} 

CharWidth:=2*0.025i {char width: 2.51 of screen width} 

CharHei Sht :=2*0,04i {char heisht: HI of screen heisht} 

set_char_5ize(CharWidth iCharHeiSht ) ! {install character size} 

Text:='Volta3e'i {define the text to be labelled} 
move(-0.9 t-(st rlen (Text )*CharWidth)/2) ! {start point of centered label} 

sJtexttText ) i {label the text} 

5et_text_ rot ( 1 »0) ! {horizontal labels} 

Text: = 'Time (seconds)'! {define the text to be labelled} 
move( -(st rlen(Text)*CharWidth)/2 t-0.92) i {start point of centered label} 

*text(Text ) ! {label the text} 

set.viewpo rt (0. 1 .0,99 .0, 12 .0.7) ! {define subset of screen} 
move(-lt-l); line(-lfl); lined. 1)! line(l.-l)! line(-l.-l)! {frame} 

set_window(0 .100 .0. IB .0. 18) ! {scale the window far the data} 

for X:=l to 100 do beiin {100 points total} 

Y:=DataPoint (X) i {Set a point from the function} 

if X = 1 then m o v e ( X . Y ) {move to the first point...} 

else line(XiY)! {...and draw to all the rest} 



end! {for X:=l to 100} 
end! {E r ro rRe t u rn=0?} 

graphics_termi {terminate the Graphics packase} 

end. {program "BinLabel2"} 



Listings of Example Programs 215 



SinLabel3 



pro J ram Sin La he 13 ( output ) i 

import d3l_libt dsl_inqi {Set Sraphics routines} 

const 

CrtAddr= 3i {address of internal CRT} 

Cont rolWo rd= 0! {device control! for CRT} 
uar 

CharWidth: real! {width of character in world coords} 

CharHeisht: real! {heisht of character in world coords} 

Text: strinS[20]i {temporary holding place for text} 

ErrorReturn: integer! {variable for initialization outcome} 
X : i n t e S e r i 
Y: real! 

$inolude 'DGLPRG:DataPoint '$ {function: y:=f(x) } 

$paSe$ {#**#*##*#*##*»*##*♦**#*****#*#*#*♦##**#*##**#*♦#*########■»**#**##***} 

beSin {body of proSram "S inLabe 13 " } 

Sraphics_init i {initialize the Graphics system} 
display_ini t (CrtAdd r iCont rolWo rd tEr ro rReturn ) i {which output device?} 

if ErrorReturn=0 then beSin {output device initialization OK?} 

set.aspect (51 1 (389) i {use the whole screen} 

CharWidth:=2*0.04i {char width: 47, of screen width} 

CharHeisht :=2*0.08i {char heisht: 87, of screen heisht} 

set_char_size(CharWidth tCharHei sht ) ! {install character size} 

Text: = 'UDLTAGE VARIANCE' 5 {define the text to be labelled} 

for X:=-3 to 3 do beSin {make "bold" label} 

move(-(strlen(Text)*CharWidth)/2+X*0.002t0.9) i {center label} 

<ftext (Text ) i {label the text} 
end i {for X} 

set_text_rot(0d)i {vertical labels} 

CharWidth:=2*0.025! {char width: 2.57, of screen width} 

CharHeiSht :=2*0»04i {char heisht: 47, of screen heisht} 

set_char_size(Charklidth (CharHei Sht ) ! {install character size} 

Text : = 'OoltaSe ' i {define the text to be labelled} 
move(-0,9(-(strleri(Text)*CharWidth)/2) ! {start point of centered label} 

stext(Text)i {label the text} 

set_text_rot ( 1 »0) ! {horizontal labels} 

Text:='Time (seconds)'i {define the text to be labelled} 
move(-(st rlen(Text)*CharWidth)/2»-0.92) i {start point of centered label} 

Stext(Text)! {label the text} 

set_viewport(0. 1 (0.99(0.12)0.7) i {define subset of screen} 
move(-i»-l)i line(-ltl)! lined d)! lined »-l)i line(-l(-l)i {frame} 

set_window(0 (100 (0. IB (0. 18) i {scale the window for the data} 

for X:=l to 100 do besin {100 points total} 

Y: =DataPoint (X) i {Set a point from the function} 

if X=l then move(XtY) {move to the first point...} 

else line(X)Y)i {...and draw to all the rest} 
end ; {for X: = l to 100} 
end! {Erro rReturn=0?} 

Sraphics_te rm i {terminate the Sraphics pacKaSe} 

end. {pros ram "9 inLabe 13"} 
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SinLine 

p r o 3 r a m S i n L i n e ( o u t p u t ) i 

import d S 1 _ 1 i b i {set Sraphios routines) 

const 

CrtAddr= 3i {address of internal CRT) 

Control 1 0! {device control! for CRT) 
i.i a r 

ErrorReturn: inteSer! {variable for initialization outcome} 

X : i n t e S e r ! 

Y : real! 

$include 'DGLPRG iDataPo int '* {function: v:=f(x) } 

$paSe$ {*#***♦**###*###♦#♦*#*#******#»*#*******♦********♦*******************> 

be sin {body of pros ram "SinLine" > 

Sraphics_init; {initialize S r a p h i c s system} 
display_init(CrtAddr (Control (ErrorReturn) i {which output device?} 

if Erro rReturn=0 then beSin {output device initialization OK?} 

for X:=l to 100 do beSin {100 points total} 

Y:=DataPoint (X) ! {Set a point from the function) 

if X = 1 then m o v e ( X / 1 i Y ) {move to the first point.,.} 

else 1 ine (X/100 (Y) i {...and dray to all the rest) 

end! {for X:=l to 100) 
end! {Erro rReturn=0?) 

Sraphics.te rm i {terminate the Sraphios packaSe) 

end. {pros ram "SinLine") 



SinViewpt 



p r o S r am S i n 1 e w p t ( o u t p u t ) i 

import d S 1 _ 1 i b i {Set Sraphios routines) 

const 

CrtAddr= 3i {address of internal CRT) 

Cont rolWo rd= 0! {device control! for CRT) 
var 

ErrorReturn: i n t e S e r i {variable for initialization outcome) 
X : i n t e S e r i 
Y : real! 

$inolude 'DGLPRG:DataPoint '$ {function: y:=f(x) } 

$paSe* {###♦###*######♦**#####*******#*♦##************♦**#**#******#******♦*} 

be sin {body of pros ram "SinUiewpt") 

Sraphics_initi {initialize the Sraphics system) 
display.init (CrtAddr (Cont rolWord (Erro rReturn) i {which output device?} 

if Erro rReturn=0 then beSin {output device initialization OK?) 

set_aspect(51 1 (389) ! {use the whole screen) 
set_viewport (0. 10 (0.99 (0. 12 (0.70) i {define subset of screen) 
move(-l(-l)i lined(-l)! linedtl)! line(-ld)i line ( -1 »-l ) i {frame} 

set_window(0 (100 (0. IB (0. 18) ! {scale the window for the data) 

for X:=l to 100 do beSin {100 points total) 

Y:=DataPoint (X) ! {Set a point from the function) 

if X=l then move(X(Y) {move to the first point,,.) 

else line(X(Y) {...and draw to all the rest) 
end i {for X: = l to 100) 
end! {E rro rReturn=0?) 

Sraphics_te rm i {terminate the sraphios pacKaSe) 

end, {proSram " SiiiOi ewpt " ) 
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Sin Window 



program SinWindou(outPut ) 5 

import dsl_lib! {Set Graphics routines} 

const 

CrtAddr= 3! {address of internal CRT} 

ControlWord= 05 {device control! for CRT} 
war 

ErrorReturn: integer! {variable for initialization outcome} 

X : i n t e 3 e r i 

Y: real i 

*include 'DGLPRG:DataPoint '$ {function: y:=f(x) } 
{*####*###*»##»**#*#*###*#####***###*#***#*#*#####*#*♦*###*#**##*###*##**###*} 

besin {body of program "SinWindow"} 

Sraphics.init i {initialize the Graphics system} 
display.init (CrtAddr iControlWord (ErrorReturn) 5 {which output device?} 

if ErrorReturn=0 then beSin {output device initialization OK?} 

set_window(0 dOO (0. IB »0. IB) i {scale the window for the data} 

for X:=l to 100 do beSin {100 points total} 

Y:=DataPoint (X) i {Set a point from the function} 

if X=l then move(X»Y) {move to the first point...} 

else line(X(Y) {...and draw to all the rest} 
end! {for X:=l to 100} 
endi {Erro rReturn=0?} 

3raphics_termi {terminate the jfraphics pacKaSe} 

end. {program "SinWindow"} 
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Appendix 



B 



The Pascal Programming Language was designed as a teaching language, and as such was in- 
tended to be machine independent. This attribute has its good and bad points. Being machine 
independent makes the language more easily transportable, but also ensures that it is difficult, if not 
impossible, to access any innovative hardware features provided by a specific computer system. 

To allow easy access to the graphics and I/O features of your Pascal system, a set of procedures and 
functions are provided in the LIBRARY file on the SYSVOL: disc. This reference describes the 
syntax and semantics for the procedures and functions provided to access graphics. 

The small block of text labelled IMPORT, immediately below the title of each entry, lists the module 
which must be declared in an IMPORT statement in order to access the feature. Modules which are 
needed by these imported modules, if any, are shown in the Module Dependency Table at the end 
of this reference. 
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AWAITLOCATOR 



IMPORT: dglJib 



This procedure waits until activation of the locator button and then reads from the enabled 
locator device. Various echo methods can be selected. 

Syntax 



( AWAITJ.0CAT0R } — -(T)— » 



button van iable 
name 




x caondinate 
variable name " 



y coonidinate *J\\ 
'variable name \J J 



Item 


Description/Default 


Range 
Restrictions 


echo selector 


Expression of TYPE INTEGER 


MININT to MAXINT 


button variable name 


Variable of TYPE INTEGER 


- 


x coordinate name 


Variable of TYPE REAL 


- 


y coordinate name 


Variable of TYPE REAL 


- 



Procedure Heading 

PROCEDURE AWAIT_L0CAT0R ( 



Echo 
VAR Button 
MAR NX , WY 



INTEGER ! 
INTEGER i 
REAL ) 



Semantics 

AWAIT_LOCATOR waits until the locator button is activated and then returns the value of the 
selected button and the world coordinates of the locator. While the button press is awaited, the 
locator position can be tracked on the graphic display device. If an invalid button is pressed, the 
button value will be returned as 0; otherwise it will contain the value of the button pressed. On 
locators that use a keyboard for the button device (e.g. HP 9826 / HP 9836). the ordinal value of 
the key pressed is returned. 

The echo selector selects the type of echo used. Possible values are: 

- No echo. 

1 - Echo on the locator device. 

2 - Small cursor 

3 - Full cross hair cursor 

4 - Rubber band line 

5 - Horizontal rubber band line 

6 - Vertical rubber band line 

7 - Snap horizontal / vertical rubber band line 

8 - Rubber band box 

9 and above - Device dependent echo on the locator device. 
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Locator input can be echoed on either a graphics display device or a locator device. The meaning 
of the various echoes on various devices used as locators and displays is discussed below. 

The button value is the INTEGER value of the button used to terminate the locator input. 

The x and y position represent the world coordinate point returned from the enabled locator. 

AWAIT_LOCATOR implicitly makes the picture current before sending any commands to the 
locator device. The locator should be enabled (LOCATORJNIT) before calling AWAIT_LOCA- 
TOR. The locator is terminated by the procedure LOCATORJTERM. 

Range and Limit Considerations 

If the echo selector is out of range, the call to AWAIT_LOCATOR is completed using an echo 
selector of 1 and no error is reported. Echoes 2 through 8 require a graphics display to be 
enabled. If a display is not enabled, the call will be completed with echo 1 and GRAPHICSER- 
ROR will return 4. 

If the point entered is outside of the current logical locator limits, the transformed point will still be 
returned in world coordinates. 

Starting Position Effects 

The location of the starting position is device dependent after this procedure with echo or echo 
1. For soft-copy devices it is typically unchanged; however, for plotters the pen position (starting 
position) will remain at the last position it was moved to by the operator. This is done to reduce 
pen movement back to the current position after each AWAIT^LOCATOR invocation. 

Echo Types 

Several different types of echoing can be performed. Some echoes are performed on the locator 
device while others use the graphics display device. When the echo selector is in the range 2 thru 
8, the graphics display device will be used in echoing. All of the echoes on the graphics display 
start at a point on the graphics display called the locator echo position (see SET_ECHO_POS). 
For some of these echoes the locator echo position is also used as a fixed reference point. For 
example, the fixed end of the rubber band line will be at the locator echo position. The echoes 
available are: 

2. Small cursor 

Track the position of the locator on the graphics display device. The initial position of the 
cursor is at the locator echo position. The point returned is the locator position. 

3. Full cross hair cursor 

Designate the position of the locator on the graphics display device with two intersecting 
lines. One line is horizontal with a length equal to the width of the logical display surface. 
The other line is vertical with a length equal to the height of the logical display surface. The 
initial point of intersection is at the current locator echo position. The point returned is the 
locator position. 

4. Rubber band line 

Designate the endpoints of a line. One end is fixed at the locator echo position; the other is 
designated by the current locator position. The locator position can be told from the locator 
echo position by the presence of a small cursor (echo 2) at end representing the locator 
echo position. The point returned is the locator position. 
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5. Horizontal rubber band line 

Designate a horizontal line. One endpoint of the line is fixed at the locator echo position; 
the other endpoint has the world Y-coordinate of the locator echo position and the world 
X-coordinate of the current locator position. The locator position can be told from the 
locator echo position by the presence of a small cursor (echo 2) at end representing the 
locator echo position. The point returned will have the X-coordinate of the locator position 
and the Y-coordinate of the locator echo position. 

6. Vertical rubber band line 

Designate a vertical line. One endpoint of the line is fixed at the locator echo position; the 
other endpoint will have the world X-coordinate of the locator echo position and the world 
Y-coordinate of the current locator position. The locator position can be told from the 
locator echo position by the presence of a small cursor (echo 2) at end representing the 
locator echo position. The point returned will have the X-coordinate of the locator echo 
position and the Y-coordinate of the locator position. 

7. Snap horizontal / vertical rubber band line 

Designate a horizontal / vertical line. One endpoint of the line is fixed at the locator echo 
position. The other endpoint will be either a horizontal (see echo 5) or vertical (see echo 6) 
rubber band line, depending on which one produces the longer line. If both lines are of 
equal length, a horizontal line will be used. The locator position can be told from the locator 
echo position by the presence of a small cursor (echo 2) at end representing the locator 
echo position. The point returned is the endpoint of the echoed line. 

8. Rubber band box 

Designate a rectangle. The diagonal of the rectangle is the line from the locator echo 
position to the current locator position. The locator position can be told from the locator 
echo position by the presence of a small cursor (echo 2) at end representing the locator 
echo position. The point returned will be the locator position. 

Echo selectors of 1 and greater than or equal to 9 produce a device dependent echo on the 
locator device. Most locator devices support at least one form of echoing. Possible ones include 
beeping, displaying the value entered, or blinking a light each time a point is entered. If the 
specified echo is not supported on the enabled locator device, echo 1 will be used. 

Echoes on Raster Displays 

Raster displays support all the echoes described under "Echo Types." 

Echoes on HPGL Plotters 

Hard copy plotting devices (such as the 9872 or the 7580) cannot perform all the echoes listed 
above. The closest approximation possible is used for simulating them. The actual echo per- 
formed may also depend on whether the plotter is also being used as the locator. The echoes 
available on plotters are: 

2. Small cursor 

Initially the plotter's pen will be moved to the locator echo position. The pen will then 
reflect the current locator position (i.e., track) until the locator operation is terminated. 

3. Full cross hair cursor 
Simulated by ECHO #2. 

4. Rubber band line 
Simulated by ECHO #2. 
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5. Horizontal rubber band line 

If the plotter is not the current locator device, the plotter's pen will initially be moved to the 
current locator echo position. The pen will then reflect the X coordinate of the current 
locator position and the Y coordinate of the current locator echo position. 

If the plotter is used as the locator, this echo is simulated by echo 2 except the current 
locator X coordinate and the locator echo position Y coordinate are returned. 

6. Vertical rubber band line 

If the plotter is not the current locator device, the plotter's pen position will initially be 
moved to the current locator echo position. The pen will then reflect the X coordinate of the 
current locator echo position and the Y coordinate of the current locator position. 

If the plotter is used as the locator, this echo is simulated by echo 2 except the locator echo 
position X coordinate and the current locator Y coordinate are returned. 

7. Snap horizontal / vertical rubber band line 

Designate a horizontal / vertical line. One endpoint of the line is fixed at the locator echo 
position. The other endpoint will be either a horizontal (see echo 5) or vertical (see echo 6) 
rubber band line, depending on which one produces the longer line. If both lines are of 
equal length, a horizontal line will be used. The locator position can be told from the locator 
echo position by the presence of a small cursor (echo 2) at end representing the locator 
echo position. The point returned is the endpoint of the echoed line. 

8. Rubber band box 

Simulated by echo 2. The point returned will be the locator position. 

Absolute Locators (Graphics Tablet or Plotter) 

For HPGL graphics tablets the operator positions the stylus to the desired position and depresses it. 
The button value returned is always one. For an echo selector of 1 the tablet beeper is sounded 
when the stylus is depressed. An echo selector greater than or equal to 9 uses the same echo as an 
echo selector of 1. (Some HPGL plotters have the ability of using the physical pen as a locator. See 
the subsequent section called "HPGL Plotters as Absolute Locators" for details.) 

Relative Locators (Knob or Mouse) 

When the knob is specified as the locator (LOCATOR_INIT with device selector of 2) the keyboard 
keys have the following meanings: 

Arrow keys Move the cursor in the direction indicated. 

Knob Move the cursor right and left. 

Knob with shift key Move the cursor up and down, 

pressed 

Mouse Move the cursor in the direction of mouse movement (mouse left = cursor 

left; mouse forward = cursor up; etc.). 

Number keys Change the amount the cursor is moved per arrow keypress or knob 

1 — * 9 rotation. 1 provides the least movement and 9 provides the most. 

All other keys act as the locator buttons. The ordinal value of the locator button (key) struck is 
returned in BUTTON. 

For an echo selector of 1 the position of the locator is indicated by a small crosshair cursor on the 
graphics display. 
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The initial position of the cursor is located at the current starting position of the graphics display. 
This is the point obtained by the last invocation of awaitJocator, or the lower left hand corner of 
the locator limits if no point has been received since LOCATOR-INIT was executed. For back to 
back AWAIT_LOCATOR calls this would mean the second AWAIT_LOCATOR would begin 
were the first AWAlT_LOCATOR left the cursor. Echo selectors greater than or equal to 9 have 
the same effect as an echo selector of 1. 

Locator input can be echoed on either a graphics display device or a locator device. Echoes 2 thru 
8 are explained above under "Echoes on Raster Displays" and "Echoes on HPGL Plotters". For 
an echo selector of or 1 the pen tracks the locator position. Echo selectors greater than or equal 
to 9 have the same effect as an echo selector of 1. 

HPGL Plotters as Absolute Locators 

The AWAIT_LOCATOR function enables a digitizing mode in the device. For HPGL plotters the 
operator then positions the pen to the desired position with the cursor buttons or joy stick and 
then presses the enter key. The pen state (0 for 'up', and 1 for 'down') is returned in the button 
parameter. 

Following locator input (echo on the locator device), the pen position will remain at the last 
position it was moved to by the operator. This means that the starting position for the next 
graphics primitive will be wherever the pen was left. 

Locator input can be echoed on either a graphics display device or a locator device. Echoes 2 thru 
8 are explained above under "Echoes on Raster Displays" and "Echoes on HPGL Plotters". For 
an echo selector of or 1 the pen tracks the locator position. Echo selectors greater than or equal 
to 9 have the same effect as an echo selector of 1. 

Error Conditions 

The graphics system must be initialized and the locator device must be enabled or the call will be 
ignored. If the echo selector is between 1 and 9 and the graphics display is not enabled, the call 
will be completed with an echo selector of 1. If any of the preceding errors are encountered, an 
ESCAPE (-27) is generated, and GRAPHICSERROR will return a non-zero value. 



Graphics Procedure Reference 225 



CLEAR_DISPLAY 

IMPORT: dglJib 



This procedure clears the graphics display. 

Syntax 

-»-/cLEAR-DISPLA1M *- 



Procedure Heading 

PROCEDURE CLEAR-DISPLAY ! 

Semantics 

The graphics system provides the capability to clear the graphics display of all output primitives at 
any time in an application program. This procedure has different meaning for different graphics 
display devices. CLEAR_DISPLAY makes the picture current. The starting position is not 
effected by this procedure. 

HPGL Plotters 

Plotters with page advance will be sent a command to advance the paper. On devices such as 
fixed page plotters, a call to CLEAR_DISPLAY simply makes the picture current. 

Raster Displays 

On CRT displays, this procedure clears the display to the background color. This means slightly 
different things on different displays: 

Monochrome If color table location is then the display is cleared to black. Otherwise, the 

display is cleared to white. 

HP 98627A The display is cleared to the non-dithered color closest to the color repre- 

sented specified by color table location 0. (e.g., If color table location was 
Red = .5, Green = .2, Blue = 0, the display would be cleared to red.) 

HP Model 36C The display is cleared to the color represented by color table location 0. 

Error conditions: 

The graphics system must be initialized and a display must be enabled or the call will be ignored, 
an ESCAPE ( - 27) will be generated, and the GRAPHICSERROR function will return a non-zero 
value. 
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CONVERT_WTODMM 



IMPORT: dgLlib 



This procedure converts from world coordinates to millimetres on the graphics display. 

Syntax 



-c 



C0NVERT_WT0DMM 



l>-<lHZ2 



trie /^^\ metr i 

name *^\J V nam 



Item 


Description/Default 


Range 
Restrictions 


world x 
world y 
metric x name 
metric y name 


Expression of TYPE REAL 
Expression of TYPE REAL 
Variable of TYPE REAL 
Variable of TYPE REAL 


- 



Procedure Heading 

PROCEDURE CONUERT.WTQDMM ( 



WX > WY 
VAR MmX > MniY 



real; 

REAL ) 5 



Semantics 

This procedure returns a coordinate pair (metric X,metric Y) representing the world X and Y 

coordinates. The metric X and Y values are the number of millimetres along the X and Y axis from 
the supplied world coordinate point to the origin of the metric coordinate system on the device. 
The location of this origin is device dependent. 

For raster devices, the metric origin is the lower-left dot. For HPGL plotters, it is the lower-left 
corner of pen movement. 

Since the origin of the world coordinate system need not correspond to the origin of the physical 
graphics display, converting the point (0.0,0.0) in the world coordinate system may not result in 
the value (0.0,0.0) offset from the physical display device's origin. 

CONVERT_WTODMM will take any world coordinate point, inside or outside the current 
window, and convert it to a point offset from the physical display device's origin. 

Error conditions: 

The graphics system must be initialized and the graphics display must be enabled or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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CONVERT_WTOLMM 



IMPORT: dgLlib 



This procedure converts from world coordinates to millimetres on the locator surface. 

Syntax 



—►^CONVERT JiTOLMM )— »(T)— » ""^ 



trie *f~\ fc metri 
name ^. ' J y nam 



Item 


Description/Default 


Range 
Restrictions 


world x 
world y 
metric x name 
metric y name 


expression of TYPE REAL 
expression of TYPE REAL 
variable of TYPE REAL 
variable of TYPE REAL 


- 



Procedure Heading 

PROCEDURE CQNUERT_WTDLMM ( WX > WY : REAL i 

UAR MmX , MmY : REAL ) 5 

Semantics 

This procedure returns a coordinate pair (metric x, metric y) representing the world X and Y 

coordinates. The metric x and y values are the number of millimetres along the X and Y axis from 
the supplied world coordinate point to the origin of the metric coordinate system on the device. 
The location of this origin is device dependent. 

For raster devices, the metric origin is the lower-left dot. For HPGL plotters, it is the lower-left 
corner of pen movement. 

Since the origin of the world coordinate system need not correspond to the origin of the physical 
locator device, converting the point (0.0,0.0) in the world coordinate system does not necessarily 
result in the value (0.0,0.0) offset from the physical locator device's origin. 

CONVERT_WTOLMM will take any world coordinate point, inside or outside the current 
window, and convert it to a point offset from the physical locator origin. 

Error Conditions 

The graphics system must be initialized, the graphics device must be enabled, and the locator 
must be initialized or the call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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DISPLAY FINIT 



IMPORT: dgLlib 



This procedure enables the output of the graphics library to be sent to a file. 

Syntax 



—(_ DISPLAYJINIT )~Kj)~*CM 



' ice \__ am Y S \__iJ control ^/ ^~* \ 

if ler J ^J_J H value | ^J_J "N 



I error variable ( \ \ 
*] name | *\U *~ 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


file name 


Expression of TYPE Gstring255; can be a 


Must be a valid 


- 




STRING of any length up to 255 charac- 


file name (see 






ters. 


'The File 
System") 




device specifier 


Expression of TYPE Gstring255; can be a 


9872A, 9872B. 


- 




STRING of any length up to 255 charac 


9872C. 9872S. 






ters. First six characters are significant. 


9872T, 7470A, 

7475A, 7550A 

and 7586B 




control value 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


see below 


error variable name 


Variable of TYPE INTEGER 


- 


- 



Procedure Heading 

PROCEDURE DISPLAY_FINIT ( 



Fi 1 e _ N a m e 

Deuice_Nairie 
Cont r o 1 
uar I e r r 



Gst r i n 3 2 5 5 > 
Gstrin«f255» 
INTEGER > 
INTEGER ) i 



Semantics 

DISPLAY_FINIT allows output from the graphics library to be sent to a file. This file can then be 
sent a graphics display device by use of the operating system's file system (e.g. FILER, or SRM 
spooler). The contents of the file are device dependent, and MUST be sent only to devices of the 
type indicated in device name when the file was created. 

The file name specifies the name of the file to send device dependent commands to. 

The device specifier tells the graphics system the type of device that the file will be sent to. Only 
some types of devices may be use this command. For example raster devices (i.e. the internal 
display) may not use this command. For the currently supported devices, see the range restric- 
tions under Syntax, above. 
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The control value is used to control characteristics of the graphics display device and should be 
set according to the display device the file is intended for. See "Control Values," below, for the 
meaning of the control value. 

The error variable name will contain a value indicating whether the graphics display device was 
successfully initialized. 



Value 



Meaning 



The graphics display device was successfully initialized. 

1 The graphics display device (indicated by device name) is not supported by the 
graphics library. 

Unable to open the file specified. File error is returned in Escapecode, and Ioresult (see 
the Pascal Language System User's manual). 

DISPLAY_FINIT enables a file as the logical graphics display. The file can be of any type, 
although the current spooling mechanisms can only handle TEXT and ASCII files. The file need 
not exist before this procedure is called. If this procedure is successful the file will be closed with 
'LOCK' when DISPLAY.TERM is executed. 

This procedure initializes and enables the graphics display for graphics output. Before the device 
is initialized the device status is 0, the device address is 0, and the device name is the default 
name. The default name is ' ' (six ASCII blanks). 

When the device is enabled the device status is set to 1 (enabled) and the internal device specifier 
used by the graphics library is set to the file name provided by the user. The device name is set to 
the supplied device name. This information is available by calling INQ_WS with operation 
selectors of 11050 and 12050. 

Initialization includes the following operations: 

• The graphics display surface is cleared (e.g., CRT erased, plotter page advanced) if Bit 7 of 
CONTROL is not set. 

• The starting position is set to a device dependent location. 

• The logical display limits are set to the default limits for the device. 

• The aspect ratio of the virtual coordinate system is applied to the logical display limits to 
define the limits of the virtual coordinate system. 

• All primitive attributes are set to the default values. 

• The locator echo position is set to its default value. 
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Only one graphics output device can be initialized at a time. If a graphics display device is 
currently enabled, the enabled device will be terminated (via DISPLAY_TERM) and the call will 
continue. 

A call to MOVE or INT_MOVE should be made after this call to update the starting position and in 
so doing, place the physical pen or beam at a known location on the graphics display device. 

The Control Value 

The control value is used to control characteristics of the graphics display device. Bits should be 
set according to the following bit map. All unused bits should be set to 0. 



















































15 


14 


13 


12 


11 


10 


9 


8 


7 


6 


5 


4 


3 


2 


1 






Bits 



thru 6 
7 



8 thru 15 



Meaning 



Currently unused. Should be set to 0. 

If this bit is set (BIT 7 = 1), it will inhibit clearing of the graphics display as part of 
the DISPLAY_FINIT procedure. Some devices have the ability to not clear the 
graphics display, or not to perform a page advance during device initialization. 
This bit is ignored on devices that do not support the feature. 

Not used by DISPLAY_FINIT. 



HPGL Plotter Initialization 

When an HPGL device is initialized the following device dependent actions are performed, in 
addition to the general initialization process: 

• Pen velocity, force, and acceleration are set to the default for that device. 

• ASCII character set is set to 'ANSI ASCII'. 

• Paper cutter is enabled (HP 9872S / HP 9872T). 

• Advance page option is enabled (HP 9872S / HP 9872T / HP 7550A). 

• Paper is advanced one full page (HP 9872S / HP 9872T / HP 7550A) (unless DISPLAYJNIT 
CONTROL bit 7 is set). 

• The automatic pen options are set (HP 7580 / HP 7585 / HP 7586B / HP 7550A). 

The default initial dimensions for the HPGL plotters supported by the graphics library are: 





Wide 


High 


Wide 


High 




Resolution 


Plotter 


mm 


mm 


points 


points 


Aspect 


points/mm 


9872 


400 


285 


16000 


11400 


.7125 


40.0 


7580 


809.5 


524.25 


32380 


20970 


.6476 


40.0 


7585 


1100 


891.75 


44000 


35670 


.8107 


40.0 


7586 


1182.8 


898.1 


47312 


35924 


.7593 


40.0 


7470 


257.5 


191.25 


10300 


7650 


.7427 


40.0 


7550 


411.25 


254.25 


16450 


10170 


.6182 


40.0 


7475 


416 


259.125 


16640 


10365 


.6229 


40.0 



Any device not in this list is not supported. 
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The default logical display surface is set equal to the maximum physical limits of the device. The 
view-surface is always justified in the lower left corner of the current logical display surface 
(corner nearest the turret for the HP 7580 and HP 7585 plotters). The physical origin of the 
graphics display is at the lower left boundary of pen movement. 

Error Conditions 

If the graphics system is not initialized, the call is ignored, an ESCAPE ( -27) is generated, and 
GRAPHICSERROR returns a non-zero value. 
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DISPLAY^INIT 



IMPORT: dgLlib 



This procedure enables a device as the logical graphics display. 

Syntax 



^ (display^nit) -*(T)-* [^^ 



error variable 
name 



Item 



device selector 



control value 



error variable name 



Description/Default 



Expression of TYPE INTEGER 



Expression of TYPE INTEGER 



Variable of TYPE INTEGER 



Range 
Restrictions 



M1NINT to 
MAXINT 

MININT to 
MAXINT 



Recommended 
Range 



Procedure Heading 

PROCEDURE DISPLAY. I NIT ( 



D e v _ A d r 
Control 
vAR IErr 



INTEGER , 
INTEGER . 
INTEGER ) ! 



Semantics 

DISPLAY JNIT enables a device as the logical graphics display. It initializes and enables the 
graphics display device for graphics output. 

Before the device is initialized the device status is 0, the device address is 0, and the device name 
is the default name. The default name is ' ' (six ASCII blanks). 

When the device is enabled the device status is set to 1 (enabled) and the internal device specifier 
used by the graphics library is set equal to the device selector provided by the user. The device 
name is set to the device being used. This information is available by calling INQ_WS with 
operation selectors 11050 and 12050. 

The device selector specifies the physical address of the graphics output device. 

• address = 3 Primary internal graphics CRT (HP Series 200) (i.e., the display designated as the 
console where the command line is displayed) 

• address =6 Secondary internal graphics CRT (HP Series 200), if present (i.e., any display 
other than the console that does not require a select code and/or bus address to access it) 

• 8 «s = device selector =£ = 31 Interface Card Select Code 

(HP 98627A default = 28) 

• 100 ss = device selector s= = 3199 composite HPIB/device address 

The control value is used to control device dependent characteristics of the graphics display 
device. 
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The error variable name will contain a value indicating whether the graphics display device was 
successfully initialized. 



Value 




2 



Meaning 



The graphics display device was successfully initialized. 

Unrecognized device specified. Unable to communicate with a device at the specified 
address, non-existent interface card or non-graphics system supported interface card. 



If an error is encountered, the call will be ignored. 

The graphics library attempts to directly identify the type of device by using its device selector in 
some way. The meanings for device address are listed above. 

At the time that the graphics library is initialized, all devices which are to be used must be 
connected, powered on, ready, and accessible via the supplied device selector. Invalid device 
selectors or unresponsive devices result in that device not being initialized and an error being 
returned. 

Only one graphics output device maybe initialized at a time. If a graphics display device is 
currently enabled, the enabled device will be terminated (via DISPLAY_TERM) and the call will 
continue. 

A call to MOVE or INT_MOVE should be made after this call to update the starting position and in 
so doing, place the physical pen or beam at a known location on the graphics display device. 

The Control Value 

Used to control characteristics of the graphics display device. Bits should be set according to the 
following bit map. All unused bits should be set to 0. 



Bits 



















































15 


14 


13 


12 


11 


10 


9 


8 


7 


6 


5 


4 


3 


2 


1 






Meaning 



thru 6 

7 



8 thru 15 



Currently unused. Should be set to 0. 

If this bit is set (BIT 7 = 1 ), it will inhibit clearing of the graphics display as part of 
the DISPLAY_FINIT procedure. Some devices have the ability to not clear the 
graphics display, or not to perform a page advance during device initialization. 
This bit is ignored on devices that do not support the feature. 

Bits 8 though 15 are used by some devices to control device dependent features 
of those devices. 



Bits 8,9, and 10 of DISPLAY JNIT's CONTROL parameter determine the type of display for the 
HP 98627A card and the default dimensions assumed by the graphics system. 
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Bits 






CONTROL 


10 9 8 


Description 




256 


001 


USSTD 


(512x390, 60 hz refresh) 


512 


010 


EURO STD 


(512x390, 50 hz refresh) 


768 


on 


US TV 


(512 x 474, 15.75 Khz horizontal 
refresh, interlaced) 


1024 


100 


EURO TV 


(512 x 512, 50 hz vertical refresh, 
interlaced) 


1280 


101 


HIRES 


(512x512, 60 hz) 


1536 


110 


Internal 


(HP) use only 



Out of range values are treated as if CONTROL = 256. 

When using a Model 237 display that is designated the console, bit 8 of DISPLAYJNiT's 
CONTROL parameter determines if the entire screen will be used for graphics. A value of 256 (i.e., 
bit 8 =1) turns off the echo of the type-ahead buffer, and allocates the entire screen for graphics. 
The type-ahead buffer echo is re-enabled by the DISPLAYJTERM procedure call. 

General Initialization Operations 

Initialization includes the following operations: 

• The graphics display surface is cleared (e.g. , CRT erased, plotter page advanced) unless Bit 7 
of the control value is set. 

• The starting position is set to a device dependent location. (This is undefined for HPGL 
plotters. ) 

• The logical display limits are set to the default limits for the device. 

• The aspect ratio of the virtual coordinate system is applied to the logical display limits to 
define the limits of the virtual coordinate system. 

• All primitive attributes are set to the default values. 

• The locator echo position is set to its default value. 

• If the display and locator are the same physical device, the logical locator limits are set to the 
limits of the view surface. 



Raster Display Initialization 

When a raster display is initialized the following device dependent actions are performed, in 
addition to the general initialization process: 

• The starting position is in the lower left corner of the display. 

• Graphics memory is cleared if bit 7 of the control word is 0. 

• Initialize the color table to default values. If the device has retroactive color definition (Model 
36C) and the color table has been changed from the default colors, the colors of an image will 
change even if bit 7 is set to 1. 

• The graphics display is turned on. 

• The view surface is centered within the logical display limits. 
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• The drawing mode (see OUTPUT_ESC) is set to dominate. 

• The DISPLAYJNIT CONTROL parameter is used as specified above. 

The following table describes the internal raster displays for Series 200 computers: 





Wide 


High 


Wide 


High 


Memory 


Color 


Computer 


mm 


mm 


points 


points 


Planes 


Map 


Model 216 


160 


120 


400 


300 


1 


no 


Model 217 


230 


175 


512 


390 


1 


no 


Model 220 (HP82913A) 


210 


158 


400 


300 


1 


no 


Model 220 (HP82912A) 


152 


114 


400 


300 


1 


no 


Model 226 


120 


88 


400 


300 


1 


no 


Model 236 


210 


160 


512 


390 


1 


no 


Model 236 Color 


217 


163 


512 


390 


4 


yes 


Model 237 


312 


234 


1024 


768 


1 


no 



The HP 98627A is a 3 plane non-color mapped color interface card which connects to an external 
RGB monitor. Bits 8,9, and 10 of DISPLAYJNIT s CONTROL parameter determine the type of 
display for the HP 98627A card and the default dimensions assumed by the graphics system. 





Bits 






CONTROL 


10 9 8 


Description 




256 


001 


USSTD 


(512 x 390, 60 hz refresh) 


512 


010 


EURO STD 


(512 x 390, 50 hz refresh) 


768 


011 


US TV 


(512 x 474, 15.75 Khz horizontal 
refresh, interlaced) 


1024 


100 


EURO TV 


(512 x 512, 50 hz vertical refresh, 
interlaced) 


1280 


101 


HIRES 


(512x512, 60 hz) 


1536 


110 


Internal 


(HP) use only 



Out of range values are treated as if CONTROL = 256. 

The physical size of the HP 98627A display (needed by the SET_DISPLAY_LIM procedure) may 
be given to the graphics system by an escape function (OPCODE = 250). The physical limits 
assumed until the escape function is given are: 



CONTROL = 256 
512 
768 

1280 



153.3mm wide and 116.7mm high. 
153.3mm wide and 116.7mm high. 
153.3mm wide and 142.2mm high. 

153.3mm wide and 153.3mm high. 



The default logical display surface of the graphics display device is the maximum physical limits of 
the screen. The physical origin is the lower left corner of the display. 

The view surface is always centered within the current logical display surface. 
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HPGL Plotter Initialization 

When an HPGL device is initialized the following device dependent actions are performed, in 
addition to the general initialization process: 

• Pen velocity, force, and acceleration are set to the default for that device. 

• ASCII character set is set to 'ANSI ASCII'. 

• Paper cutter is enabled (HP 9872S / HP 9872T). 

• Advance page option is enabled (HP 9872S / HP 9872T / HP 7550A /HP 7586B). 

• Paper is advanced one full page (HP 9872S / HP 9872T / HP 7550A / HP 7586B) (unless 
DISPLAY JNIT CONTROL bit 7 is set). 

• The automatic pen options are set (HP 7580 / HP 7585). 

The default initial dimensions for the HPGL plotters supported by the graphics library are: 





Wide 


High 


Wide 


High 




Resolution 


Plotter 


mm 


mm 


points 


points 


Aspect 


points/mm 


9872 


400 


285 


16000 


11400 


.7125 


40.0 


7580 


809.5 


524.25 


32380 


20970 


.6476 


40.0 


7585 


1100 


891.75 


44000 


35670 


.8107 


40.0 


7586 


1182.8 


898.1 


47312 


35924 


.7593 


40.0 


7470 


257.5 


191.25 


10300 


7650 


.7427 


40.0 


7550 


411.25 


254.25 


16450 


10170 


.6182 


40.0 


7475 


416 


259.125 


16640 


10365 


.6229 


40.0 



The maximum physical limits of the graphics display for an HPGL device not listed above are 
determined by the default settings of PI and P2. The default settings of PI and P2 are the values 
they have after an HPGL 'IN' command. Refer to the specific device manual for additional 
details. 

The default logical display surface is set equal to the area defined by PI and P2 at the time 
DISPLAYJNIT is invoked. The view surface is always justified in the lower-left corner of the current 
logical display surface (corner nearest the turret for the HP 7580, HP 7585 and HP 7586 plotters). 
The physical origin of the graphics display is at the lower-left boundary of pen movement. 



Note 

If the paper is changed in an HP 7580, HP 7585 or HP 7586 plotter 
while the graphics display is initialized, it should be the same size of 
paper that was in the plotter when DISPLAYJNIT was called. If a 
different size of paper is required, the device should be terminated 
(DISPLAY_TERM) and re-initialized after the new paper has been 
placed in the plotter. 



Error Conditions 

The graphics system must be initialized or the call will be ignored, an ESCAPE ( -27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 
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DISPLAY_TERM 

IMPORT: dglJib 

This procedure disables the enabled graphics display device. 

Syntax 



-<■ 



DISPLAY.TERM 



Procedure Heading 

PROCEDURE DISPLAY-TERM i 

Semantics 

DISPLAY.TERM terminates the device enabled as the graphics display. DISPLAY_TERM 
completes all remaining display operations and disables the logical graphics display. It makes the 
picture current and releases all resources being used by the device. The device name is set to the 
default name ' ' (six ASCII blanks), the device status is set to (not enabled) and the device 
address is set to 0. DISPLAY_TERM does not clear the graphics display. 

The graphics display device should be disabled before the termination of the application prog- 
ram. DISPLAY_TERM is the complementary routine to DISPLAYJNIT. 

Error Conditions 

The graphics system should be initialized and the display should be enabled or the call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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GRAPHICSERROR 



IMPORT: dgLlib 



This function returns and integer error code and can be used to determine the cause of a graphics 
escape. 

Syntax 



-< 



GRAPHICSERROR 



>• 



Function Heading 

FUNCTION GRAPHICSERROR: INTEGER? 

Semantics 

When an error occurs that uses the escape function, escape-code - 27 is used. After the escape is 
trapped and it has been determined that the graphics library is the source of the error (the escape 
code equal to -27), GRAPHICSERROR can be used to determine the cause of the error. The 
function returns the value of the last error generated and then clears the value of the return error. 
A user who is trapping errors and wishes to keep the value of the error must save it in some 
variable. 

The following list of returned values and the error they represent can be used to interpret the 
value returned by GRAPHICSERROR. 



Value 



Meaning 





1 
2 
3 

4 

5 
6 



9 
10 



No errors since the last call to GRAPHICSERROR or since the last call to GRAPHICSJNIT. 

The graphics system is not initialized. ACTION: CA11 ignored. 

The graphics display is not enabled. ACTION: Call ignored. 

The locator device is not enabled. ACTION: Call ignored. 

Echo value requires a graphics display to be enabled. ACTION: Call completes with echo 
value = 1. 

The graphics system is already initialized. ACTION: Call ignored. 

Illegal aspect ratio specified. X-SIZE and Y-SIZE must be greater than 0. ACTION: Call 
ignored. 

Illegal parameters specified. ACTION: Call ignored. 

The parameters specified are outside the physical display limits. ACTION: Call ignored. 

The parameters specified are outside the limits of the window. ACTION: Call ignored. 

The logical locator and the logical display are the same physical device. The logical locator 
limits cannot be defined explicitly, they must correspond to the logical view surface limits. 
ACTION: Call ignored. 
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11 The parameters specified are outside the current virtual coordinate system boundary. 

ACTION: Call ignored. 

13 The parameters specified are outside the physical locator limits. ACTION: Call ignored. 

14 Color table contents cannot be inquired or changed. ACTION: Call ignored. 

18 The number of points specified for a polygon or polyline operation is less than or equal to 

zero. ACTION: Call ignored. 
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GRAPHICS_INIT 

IMPORT: dglJib 



This procedure initializes the graphics system. 

Syntax 



-*-/graphics_init V*- 



Procedure Heading 

PROCEDURE GRAPHICS-INITi 

Semantics 

GRAPHICSJNIT initializes the graphics system. It must be the first graphics system call made by 
the application program. Any procedure call other than GRAPHICSJNIT will be ignored. 
GRAPHICSJNIT performs the following operations: 

• Get dynamic storage space for the graphics library. 

• Sets the aspect ratio to 1. 

• Sets the virtual coordinate and viewport limits to range from to 1.0 in the X and Y 
directions. 

• Sets the world coordinate limits to range from -1.0 to 1.0 in the X and Y directions. 

• Sets the starting position to (0.0,0.0) in world coordinate system units. 

• Sets all attributes equal to their default values. 

GRAPHICSJNIT does not enable any logical devices. The graphics system is terminated with a 
call to GRAPHICS TERM. Calling GRAPHICSJNIT while the graphics system is initialized will 
result in an implicit call to GRAPHICS-TERM, before the system is reinitialized. 
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GRAPHICS_TERM 

IMPORT: dgLlib 

This procedure terminates the graphics system. 

Syntax 



-•-(graphics_term)— »- 



Procedure Heading 

PROCEDURE GRAPHICS-TERM! 

Semantics 

GRAPHICS_TERM terminates the graphics system. Termination includes terminating both the 
graphics display and the locator devices. GRAPHICS-TERM does not clear the graphics display. 

GRAPHICS-TERM should be called as the last.graphics system call in the application program. 

GRAPHICS-TERM releases dynamic memory allocated during GRAPHICSJNIT. In order that 
this memory actually be returned the compiler option $HEAP_DISPOSE ON$ must be used. 

Error Conditions 

If the graphics system is not initialized, the call will be ignored, an ESCAPE (-27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 
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GTEXT 



IMPORT: dgLtypes dgLlib 



This procedure draws characters on the graphics display. 

Syntax 



-*-( GTEXT J-*-\ ( J-— string -*-^ ) J — »- 



Item 



Description/Default 



Range 
Restrictions 



string 



Expression of TYPE Gstring255. Can be a string 
of any length up to 255 characters 



length < = 255 
characters 



Procedure Heading 

PROCEDURE GTEXT ( String 



Gst rin 3255 



Semantics 

The string contains the characters to be output. 

GTEXT produces characters on the graphics display. A series of vectors representing the 
characters in the string is produced by the graphics system. 

When the text string is output, the starting position will represent the lower left-hand corner of the 
first character in STRING. Text is normally output from left to right and is printed vertically with 
no slant. 

After completion of this call, the starting position is left in a device dependent location such that 
successive calls to GTEXT will produce a continuous line of text (i.e., 
GTEXT ( 'H' ) 5 GTEXT ( 'I ' ) 5 is equivalent to GTEXT ( 'HI ' ) !). 

The attributes of color, line-style, line-width, text rotation, and character size apply to text 
primitives. However, the text will appear with these attributes only if the graphics device is 
capable of applying them to text. 

Characters 

The character sets provided by the graphics system are the same ones used by the CRT in alpha 
mode, namely the standard character set plus.either the Roman extension character set (for all 
non-Katakana machines) or the Katakana character set (for Katakana machines). 
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Characters are defined within a cell that has an aspect ratio of 9/15. The character cells are 
adjacent, both horizontally and vertically, as shown here. 




23356789 



Control Codes 

The following control codes are supported by GTEXT: 



Control 
Character 


Program 
Access 


Keyboard 
Access 


backspace 


CHR(8) 


CTRL-H 


linefeed 


CHR(IO) 


CTRL-J 


carriage 
return 


CHR(13) 


CTRL-M 



Action 



Move one character cell to the left along the text direction 
vector (defined by SET_CHAR_SIZE). 

Move down the height of one character cell. 

Move back the length of the text just completed. 



Any other control characters are ignored. 



The current position is maintained to the resolution of the display device. A text size less-than-or- 
equal-to the resolution of the display device will result in all the characters in a GTEXT call, or a 
series of GTEXT calls, being written to the same point on the device. 

The current position returned by an INQ_WS is not updated by calls to GTEXT. If you want to 
know the current position after a GTEXT, you must do a MOVE, or some other call which updates 
the current position. 

Error Conditions 

If the graphics system is not initialized or a display is not enabled, the call will be ignored, an 
ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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INPUT_ESC 



IMPORT: dglJib 



This procedure allows the user to obtain device dependent information from the graphics 
system. 

Syntax 



— »( INPUT_ESC }— -(T)— " ' 



Q 



INTEGER 
array name 



REAL array 
name 



error variable 
name 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


operation selector 


Expression of TYPE INTEGER 


MININT to 
MAXINT 


- 


INTEGER array 


Expression of TYPE INTEGER 


MININT to 


>0 


size 




MAXINT 




REAL array size 


Expression of TYPE INTEGER 


MININT to 
MAXINT 


>0 


INTEGER array 


Variable of TYPE ANYVAR 


— 


— 


name 


should be array of INTEGERS 






REAL array name 


Variable of TYPE ANYVAR 
should be array of REAL 


- 


- 


error variable name 


Variable of TYPE INTEGER 


- 


- 



Procedure Heading 

PROCEDURE INPUT.ESC ( 



Opcode : INTEGER; 
I size : INTEGER? 
Rsize : INTEGER? 
ANYUAR I list : G in t_l i s t ! 
ANYUAR Rlist : G real-list! 
UAR lerr : INTEGER ) i 
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Semantics 

The operation selector determines the device dependent inquiry escape function being in- 
voked. 

The INTEGER array size is the number of INTEGER parameters to be returned in the INTEGER 
array by the escape function. The correct value for this can be found in the hundred's place of the 
operation selector (see the table below). 

The REAL array size is the number of REAL parameters to be returned in the REAL array by the 
escape function. The correct value for this can be found in the thousand's place of the operation 
selector (see the table below). 

The INTEGER array is the array in which zero or more INTEGER parameters are returned by the 
escape function. 

The REAL array is the array in which zero or more REAL parameters are returned by the escape 
function. 

The error variable will contain a code indicating whether the input escape function was 
performed. 

Value Meaning 




1 
2 



Inquiry escape function successfully completed. 

Inquiry operation (operation selector) not supported by the graphics display device. 

INTEGER array size is not equal to the number of INTEGER parameters to be 
returned. 

REAL array size is not equal to the number of REAL parameters to be returned. 



3 
If the error variable contains a non-zero value, the call has been ignored. 

INPUT_ESC allows application programs to access special device features on a graphics display 
device. The type of information returned from the graphics display device is determined by the 
value of operation selector. Possible inquiry escape functions may return the status or the options 
supported by a particular graphics display device. 

Inquiry escape functions only apply to the graphics display device. INPUT_ESC implicitly makes 
the picture current before the escape function is performed. 
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HPGL Plotter Operation Selectors 

The following inguiry is supported: 



Operation 








Selector 


Meaning 




2050 


Inquire about current turret. 




INTEGER array [1] = 


- 1 >> Turret mounted, but its type is unknown 




INTEGER array [1] = 


>> No turret mounted 




INTEGER array [1] = 


1 >> Fiber tip pens 




INTEGER array [1] = 


2 >> Roller ball pens 




INTEGER array [1] = 


3 >> Capillary pens 




INTEGER array [2] = 


>> No turret mounted or turret has no pens 




INTEGER array [2] = 


n >> Sum of these values: 




1 


Pen in stall #1 






2 


Pen in stall #2 






4 


Pen in stall #3 






8 


Pen in stall #4 






16 


Pen in stall #5 






32 


Pen in stall #6 






64 


Pen in stall #7 






128 


Pen in stall #8 





For example, if INTEGER array[2] = 3, pens would only be contained in stalls 1 and 2. 

Operation selector 2050 is supported on the HP 7475, HP 7550, HP 7580, HP 7585 and HP 7586 
plotters. 



Error Conditions 

If the graphics system is not initialized or a display is not enabled, the call will be ignored, an 
ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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INQ_COLOR_TABLE 



IMPORT: dglJib 
dgLinq 



This procedure inquires the color modeling parameters for an index into the device-dependent 
color capability table. 

Syntax 



— ^INQ_COLOR_TABLE) —{T)- H seTeTt 



— »/T\_J second 1 *f~\ 

^J_J Iparameter | ^J_J \ 



Q 



third 
parameter 



Item 


Description/Default 


Range 
Restrictions 


entry selector 


Expression of TYPE INTEGER 


>0 


first parameter name 


Variable of TYPE REAL 


- 


second parameter name 


Variable of TYPE REAL 


- 


third parameter name 


Variable of TYPE REAL 


- 



Procedure Heading 

PROCEDURE INQ_COLOR_TABLE ( Index : 

VAR Colpl 
UAR Co1p2 
UAR Co1p3 



INTEGER 
REAL ; 

real; 

REAL 



) ; 



Semantics 

This routine inquires the color modelling parameters for the specified location in a device- 
dependent color capability table. 

The entry selector specifies the location in the color capability table. The parameters returned 
are for the specified location. The size of the color capability table is device dependent. For raster 
displays in Series 200 computers, 32 entries are available. 

The first parameter represents red intensity if the RGB model has been selected with the SET 
COLOR statement, or hue if the HSL model has been selected. 

The second parameter represents green intensity if the RGB model has been selected with the 
SET COLOR statement, or saturation if the HSL model has been selected. 

The third parameter represents blue intensity if the RGB model has been selected, or luminosity 
if the HSL model has been selected. 
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A more detailed description of the color models and the meaning of their parameters can be 
found under the procedure definition of SET_COLOR_MODEL. 



Note 

The color table stores color specifications as RGB values. The conver- 
sion from RGB to HSL is a one-to-many transformation, and the 
following arbitrary assignments may be made during the conversion: 

IF Luminosity = 
THEN Hue = 

Saturation = 



IF Saturation = 
THEN Hue = 



Error Conditions 

If the graphics system is not initialized, a display device is not enabled, the color table contents 
cannot be inquired, or the color table entry selector is out of range, the call is ignored, an ESCAPE 
( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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INQ_PGN_TABLE 



IMPORT: dgLlib 
dgLinq 



This procedure inquires the polygon style attributes for an entry in the polygon style table. 

Syntax 



— » ( INQ_PGN_TABLE } -+(7)-* \ seTeVt'or 



dens i ty 
Hvar iable name " 



fill orientat ion 
variable name 



G 



edge var iab lej_ 

name 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


entry selector 


Expression of TYPE INTEGER 


MININT thru 


Device 






MAXINT 


dependent 


density variable 


Variable of TYPE REAL 


- 


- 


name 








fill orientation 


Variable of TYPE REAL 


— 


— 


variable name 








edge variable name 


Variable of TYPE INTEGER 


- 


- 



Procedure Heading 

PROCEDURE INQ_PGN_TABLE 



I n d e x 
U A R Densty 
VAR Orient 
VAR EdSe 



INTEGER! 

real; 
real; 

INTEGER ) i 



Semantics 

The entry selector specifies the entry in the polygon style table the inquiry is directed at. 

The density variable will contain a value between -1 and 1. This magnitude of this value is the 
ratio of filled area to non-filled area. Zero means the polygon interior is not filled. One represents 
a fully filled polygon interior. All non-zero values specify the density of continuous lines used to fill 
the interior. Negative values are used to specify crosshatching. Calculations for fill density are 
based on the thinnest line possible on the device and on continuous line-style. If the interior 
line-style is not continuous, the actual fill density may not match that found in the polygon style 
table. 
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The fill orientation variable will contain a value from -90 through 90. This value represents the 
angle (in degrees) between the lines used for filling the polygon and the horizontal axis of the 
display device. The interpretation of fill orientation is device-dependent. On devices that require 
software emulation of polygon styles, the angle specified will be adhered to as closely as possible, 
within the line-drawing capabilities of the device. For hardware generated polygon styles, the 
angle specified will be adhered to as closely as is possible given the hardware simulation of the 
requested density. If crosshatching is specified, the fill orientation specifies the angle of orienta- 
tion of the first set of lines in the crosshatching, and the second set of lines is always perpendicular 
to this. 

The edge variable will contain a if the polygon edge is not to be displayed and a 1 if the polygon 
edge is to be displayed. If polygon edges are displayed, they adhere to the current line attributes 
of color, line-style, and line-width, in effect at the time of polygon display. 

All current devices support 16 entries in the polygon table. The polygon styles defined in the 
default tables are defined to exploit the hardware capabilities of the devices they are defined for. 

Error Conditions 

The graphics system must be initialized, a display must be enabled, and the entry selector must be 
in range or the call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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INQ_WS 



IMPORT: dgLlib 
dgLinq 



This procedure allows the user to determine characteristics of the graphics system. 

Syntax 

— »- { INQJ)s") -»{T)-— 




REAL 
array name 



_/~ > \J error 

^jj var iable n 



Item 


Description/Default 


Range 
Restrictions 


operation selector 


Expression of TYPE INTEGER 


see below 


string size 


Expression of TYPE INTEGER 


see below 


integer array size 


Expression of TYPE INTEGER 


see below 


REAL array size 


Expression of TYPE INTEGER 


see below 


string name 


Variable of TYPE PACKED ARRAY OF CHAR 


- 


INTEGER array name 


Variable of TYPE ARRAY OF INTEGER 


- 


REAL array name 


Variable of TYPE ARRAY OF REAL 


- 


error variable name 


Variable of TYPE INTEGER 


- 



Procedure Heading 

PROCEDURE INQ_WS < 



Opcode 

Ss ize 

I s i ze 

Rs i ze 

ANYUAR Slist 

ANYUAR I list 

ANYVAR Rlist 

MAR Ierr 



integer; 
integer; 
integer; 
integer; 

Gcha r_l i s t ? 
Gint_listi 
Greal_list ; 
INTEGER) ; 
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Semantics 

The operation selector is an integer from the list of operation selectors given below. It is used to 
specify the topic of the inquiry to the system. 

The string size is used to specify the maximum number of characters that are to be returned in 
the string array by the function specified by the operation selector. If there is a 1 in the 
ten-thousand's place a string value will be returned. The number of characters in the string is 
returned in the first entry in the INTEGER arrray. 

The INTEGER array size is the number of integer parameters that are returned in the integer 
array by the function specified by OPCODE. The thousand's digit of the operation selector is the 
number of elements the INTEGER array must contain. 

The REAL array size is the number of REAL parameters that are returned in the REAL array by 
the function specified by OPCODE. The hundred' s digit of the operation selector is the number of 
elements the REAL array must contain. 

The string array is a PACKED ARRAY OF CHAR which will contain a string or strings that 
represents characteristics of the work station specified by the value of operation selector. The 
application program must ensure that string array is dimensioned to contain all of the values 
returned by the selected function. 

The INTEGER array will contain integer values that represent characteristics of the work station 
specified by the value of OPCODE. The application program must ensure that the integer array is 
dimensioned to contain all of the values returned by the selected function. 

The REAL array will contain REAL values that represent characteristics of the work station 
specified by the value of OPCODE. The application program must ensure that the REAL array is 
dimensioned to contain all of the values returned by the selected function. 

The error variable will return an integer indicating whether the inquiry was successfully per- 
formed. 



Value 




1 
2 

3 

4 



Meaning 



The inquiry was successfully performed. 

The operation selector was invalid. 

The INTEGER array size was not equal to the number INTEGER parameters requested 
by the operation selector. 

The REAL array size was not equal to the number of REAL parameters requested by 
the operation selector. 

The string array was not large enough to hold the string requested by the operation 
selector. 
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The procedure INQ_WS returns current information about the graphics system to the application 
program. The type of information desired is specified by a unique value of OPCODE. The 
thousands digit of the operation selector specifies the number of integer values returned in the 
integer array and the hundreds digit specifies the number of REAL values returned in the REAL 
array. A 1 in the ten-thousand's place indicates that a value will be returned in the string. 

One use of INQ_WS is device optimization: the use of inquiry to enhance the application's 
utilization of the output device. An example of this is using color to distinguish between lines 
when a device supports colors, and using line-styles when color is not available. Another example 
is maximizing the aspect ratio used, based on the maximum aspect ratio of the display device. 

Device dependent information returned by the procedure is undefined if the device being 
inquired from is not enabled (e.g., inquire number of colors supported, operation selector 1053, 
only returns valid information when the display is enabled). 

If the graphics system is not initialized, the call will be ignored and GRAPHICSERROR will return 
a non-zero value. 
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Supported Operation Selectors 

The operation selectors supported by the system and their meaning is listed below: 



Operation 






Selector 


Meaning 




250 


Current cell size used for text. 

REAL Array[ 1] = Character cell width in world coordinates 
REAL Array[2] = Character cell height in world coordinates 




251 


Marker size. 

REALArray[l] = Marker width in world coordinates 
REAL Array[2] = Marker height in world coordinates 




252 


Resolution of graphics display 

REAL Arrayfl] = Resolution in X direction (points/mm) 
REAL Array[2] = Resolution in Y direction (points/mm) 




253 


Maximum dimensions of the graphics display. 

REAL Array[ 1] = Maximum size in X direction (MM) 
REAL Array[2] = Maximum size in Y direction (MM) 




254 


Aspect ratios 

REALArray[l] = Current aspect ratio of the virtual coordinate system. 
REAL Array[2] = Aspect ratio of logical limits. 




255 


Resolution of locator device 

REAL Array[l] = Resolution in X direction (points/mm) 
REAL Array [2] = Resolution in Y direction (points/mm) 




256 


Maximum dimensions of the locator display. 

REAL Array[l] = Maximum size in X direction (MM) 
REAL Array[2] = Maximum size in Y direction (MM) 




257 


Current locator echo position 

REAL array[ 1] = X world coordinate position 
REAL array[2] = Y world coordinate position 




258 


Current virtual coordinate limits 

REAL array[l] = Maximum X virtual coordinate 
REAL array[2] = Maximum Y virtual coordinate 




259 


Starting position. 






The information returned may not be valid (not updated) following a text call, 


an escape 




function call, changes to the viewing transformation or after initialization of th 


e graphics 




display device. 






REALarray[l] = X world coordinate position 






REAL array[2] = Y world coordinate position 




450 


Current window limits 

REAL arrayfl] = Minimum X world coordinate position 
REAL array[2] = Maximum X world coordinate position 
REAL array[3] = Minimum Y world coordinate position 
REAL array[4] = Maximum Y world coordinate position 




451 


Current viewport limits 

REAL array! 1] = Minimum X virtual coordinate 
REAL array[2] = Maximum X virtual coordinate 
REAL array[3] = Minimum Y virtual coordinate 
REAL array[4] = Maximum Y virtual coordinate 





Graphics Procedure Reference 255 



Operation 
Selector 



Meaning 



1050 



1051 



1052 

1053 

1054 

1056 
1057 
1059 
1060 
1062 
1063 
1064 

1065 
1066 



Does graphics display device support clipping at physical limits? 
INTEGER Array[l] = - No 

INTEGER Array[ 1] = 1 - Yes, to the view-surface boundaries 
INTEGER Array! 1] = 2 - Yes, but only to the physical limits 

of the display surface. 

Justification of the view surface within the logical display limits. 
INTEGER Array! 1] = - View-surface is centered within 

the logical display limits 
INTEGER Array! 1] = 1 - View surface is positioned in the lower 

left corner of the logical display limits. 

Can the graphics display draw in the background color? Drawing in the background color 
can be used to 'erase' previously drawn primitives. 

INTEGER Array! 1] = - No 

INTEGER Array! 1] = 1 - Yes 

The total number of non-dithered colors supported on the graphics display. The number 
returned does not include the background color. (Compare operation selectors 1053, 1054, 
and 1075.) 

INTEGER Array! 1] = number of distinct colors supported. 

Number of distinct non-dithered colors which can appear on the graphics display at one 
time. The number returned does not include the background color. 
INTEGER Array! 1] = number of distinct colors which can appear 
on the display device at one time. 

Number of line-styles supported on the graphics display. 

INTEGER Array! 1] = number of hardware line-styles supported. 

Number of line-widths supported on the graphics display. 
INTEGER Array! 1] = number of line-widths supported. 

Number of markers supported on the graphics display. 
INTEGER Array! 1] = # of distinct markers supported. 

Current value of color attribute. 

INTEGER Array[l] = Current value of color attribute. 

Current value of line-style attribute 

INTEGER Array! 1] = Current value of line-style attribute. 

Current value of line-width attribute. 
INTEGER Array! 1] = Current value. 

Current timing mode. 

INTEGER Array! 1] = - Immediate visibility 
INTEGER Array! 1] = 1 - System buffering 

Number of entries in the polygon style table. 
INTEGER Array[l] = # styles. 

Current polygon interior color index. 
INTEGER Array! 1] = Index 
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Operation 




Selector 


Meaning 


1067 


Current polygon style index. 




INTEGER Array[ 1] = Index 


1068 


Maximum number of polygon vertices that a display device can process. 




INTEGER Arrayll] = No hardware support. 




= N (0<n<32767) Number of vertices supported. 




= 32767 The graphics display device uses all 




available memory to process polygons 




(the maximum number of vertices 




is determined by current free memory). 


1069 


Does the graphics device support immediate, retroactive change of polygon style for 




polygons already displayed? 




INTEGER Arraytl] = - No. 




INTEGER Arraytl] = 1 -Yes. 


1070 


Does the graphics device support hardware (or low-level device handler) generation of 




polygons using INT_POLYGON_DD? 




INTEGER Arraytl] = - No 




INTEGER Arraytl] = 1 -Yes 


1071 


Does the graphics device support immediate, retroactive change for primitives already 




displayed? 




INTEGER Arraytl] = - No 




INTEGER Arraytl] = 1 -Yes 


1072 


Can the background color of the display be changed? 




INTEGER Arraytl] = - No 




INTEGER Arraytl] = 1 - Yes 


1073 


Can entries in the color table be redefined using SET_COLOR_TABLE? 




INTEGER Arraytl] = - No 




INTEGER Arraytl] = 1 -Yes 


1074 


Current color model in use 




INTEGER Arraytl] = 1 RGB 




INTEGER Arraytl] = 2 - HSL 


1075 


Number of entries in the color capability table. The number returned does not include the 




background color. 




INTEGER Arraytl] = # entries 


1076 


Current polygon interior line-style. 




INTEGER Arraytl] = Current interior line-style 


11050 


Graphics display device association. 




String = Name of device path. (Internal device specifier.) 




INTEGER Arraytl] = Number of characters in the device path. 


11052 


Locator device association. 




String = Name of device path. (Internal device specifier.) 




INTEGER Arraytl] = Number of characters in the device path. 
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Operation 
Selector 



Meaning 



12050 Graphics display device information. 

String = Name of graphics display device. 

INTEGER Array[l] = Number of characters in the device name. 

INTEGER Array[2] = Status 

= Graphics display is not enabled. 

= 1 Graphics display is enabled. 

13052 Graphics locator device information. 

String = Name of the locator device. 

INTEGER Array[ 1] = Number of characters in the device name. 

INTEGER Array[2] = Status 

= Locator device is not enabled. 

= 1 Locator device is enabled. 
INTEGER Array[3] = Number of buttons on the locator device. 

Error Conditions 

If the graphics system is not initialized, the call will be ignored, an ESCAPE 
generated, and GRAPHICSERROR will return a non-zero value. 



•27) will be 
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INT_LINE 



IMPORT: dgl types 
dglJib 



This procedure draws a line from the starting position to the world coordinate specified. 

Syntax 



-^ (lNT_l_INE) -^(T)-»> r^ ord X lr , a te 



coordinate 



Item 


Description/Default 


Range 
Restrictions 


x coordinate 
y coordinate 


Expression of TYPE Gshortint, This is subrange 
of INTEGER 

Expression of TYPE Gshortint This is subrange 
of INTEGER 


- 32 768 to 32 767 

- 32 768 to 32 767 



Procedure Heading 

PROCEDURE INT_LINE ( Iwx, Iwv 



Gshortint ) i 



Semantics 

The x and y coordinate pair is the ending of the line to be drawn in the world coordinate system. 

A line is drawn from the starting position to the world coordinate specified by the x and y 
coordinates. The starting position is updated to this point at the completion of this call. 

The primitive attributes of line style (see SETJJNE_STYLE), line width (see SET-LINE- 
WIDTH), and color (see SET-COLOR) apply to lines drawn using INT-LINE. 

This procedure is the same as the LINE procedure, with the exception that the parameters are of 
type Gshortint ( - 32 768. .32 767). When used with some displays this procedure may perform 
about 3 times faster than the LINE procedure. For all other displays this procedure has about the 
same performance as the LINE procedure. 

The INT_LINE procedure only has increased performance when the following conditions exist: 

• The display must be a raster device. 

• The window bounds within the range - 32 768 to 32 767. 

• The window must be less then 32 767 units wide and high. 
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INT operations are provided for efficient vector generation. Although their use can be mixed with 
other, non-integer operations, one dot roundoff errors may result with mixed use since different 
algorithms are used to implement each. 

Drawing to the starting position generates the shortest line possible. Depending on the nature of 
the current line-style, nothing may appear on the graphics display surface. See SET_LINE_ 
STYLE for a complete description of how line-style affects a particular point or vector. 
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INT_MOVE 



IMPORT: dgLtypes 
dgLlib 



This procedure sets the starting position to the world coordinate position specified. 

Syntax 



— > ^INT_M0VE )-»(T)-> ^ [:oord x i n a t 



coord inate 



Item 


Description/Default 


Range 
Restrictions 


x coordinate 
y coordinate 


Expression of TYPE Gshortint This is subrange 
of INTEGER 

Expression of TYPE Gshortint This is subrange 
of INTEGER 


- 32 768 to 32 767 
-32 768 to 32 767 



Procedure Heading 

PROCEDURE INT_MDUE 



I wx 



I W V 



INTEGER ) ! 



Semantics 

The x and y coordinate pair define the new starting position in world coordinates. 

INT_MOVE specifies where the next graphical primitive will be output. It does this by setting the 
value of the starting position to the world coordinate system point specified by the x and y 
coordinate values and then moving the pen (or its logical equivalent) to that point. 

The starting position corresponds to the location of the physical pen or beam in all but four 
instances: after a change in the viewing transformation, after initialization of a graphical display 
device, after the output of a text string, or after the output of an escape function. A call to MOVE 
or INT_MOVE should therefore be made after any one of the following calls to update the value 
of the starting position and in so doing, place the physical pen or beam at a known 
location: SET^XSPECT, DISPLAY._INIT, SET_DISPLAY._LIM, OUTPUT_ESC, TEXT, SET_ 
VIEWPORT, and SET.WINDOW. 

This procedure is the same as the MOVE procedure, with the exception that the parameters are of 
type Gshortint ( -32 768. .32 767). When used with the same display, this procedure can 
perform about 3 times faster than the MOVE procedure. For all other displays this procedure has 
about the same performance as the MOVE procedure. 
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The INT_MOVE procedure only has increased performance when the following conditions exist: 

• The display must be a raster device. 

• The window bounds within the range - 32 768 to 32 767. 

• The window must be less than 32767 units wide and high. 

INT operations are provided for efficient vector generation. Although their use can be mixed with 
non-integer operations, one dot roundoff errors may result with mixed use since different 
algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized and a graphics display must be enabled or the call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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INT_POLYGON 



IMPORT: dgLtypes 
dglJib 

dgLpoly 



This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style exactly as specified (i.e., device-independent results). 

Syntax 



— »»(int_polygon)— »»(T)— » P°i n 



Q 



operation selector 
array name 



Item 


Description/Default 


Range 
Restrictions 


points 


Expression of TYPE INTEGER 


MIN1NT thru MAXINT 


x array name 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


-32 768 to 32 767 


y array name 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


-32 768 to 32 767 


operation selector array 
name 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


- 32 768 to 32 767 



Procedure Heading 

PROCEDURE INT_POLYGON ( 



ANWAR 
ANYUAR 
ANY MAR 



IMpoint 
X i.i e c 
Y i' e c 
Opcodes 



INTEGER i 

Gs h o rt i nt_l ist i 

Gshortint_list; 

Gshortint_list) 



Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 

Value Meaning 




1 
2 



Don't display the line for the edge extending to this vertex from the previous vertex. 

Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or 
the end of the arrays is encountered.) 
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Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 

INT_POLYGON is used to output a polygon-set, specified in world coordinates, adhering exactly 
to the polygon style attributes that are currently specified. A polygon-set is a set of polygons 
(called "sub-polygons") that are treated graphically as one polygon. This is accomplished by 
"stacking" the sub-polygons. The subpolygons in a polygon-set may intersect or overlap each 
other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub-polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. A dot will disappear on an edged polygon if the edge is done with 
a complementing line. 

The filling of polygons also depends on how the sub-polygons "nest" within each other. An 
"even-odd" rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 




Polygon Filling 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN__COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub- 
polygons are displayed. The edge from the (I-l)th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to and the edge will 
not be drawn. 

When INT_POLYGON is used, the current position is updated to the end of the last sub-polygon 
specified in the polygon-set. The end of the last sub-polygon is defined to be the first (implicit last) 
vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call degenerates to 
an update of the current position to the first coordinate set in the x and y point arrays (x 
coordinate array[l], y coordinate array[l]). 

It is the application program's responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

This procedure is the same as the POLYGON procedure, with the exception that the parameters 
are of type Gshortint ( -32 768. .32 767). When used with some displays this procedure may 
perform about 3 times faster than the POLYGON procedure. For all other displays this procedure 
has about the same performance as the POLYGON procedure. 

The INT_POLYGON procedure only has increased performance when the following conditions 
exist: 

• The display must be a raster device. 

• The window bounds are within the range -32 768 through 32 767. 

• The window must be less than 32 767 units wide and high. 

INT_POLYGON is provided for efficient vector generation. Although its use can be mixed with 
MOVE, LINE, POLYLINE, and POLYGON, one dot roundoff errors may result with mixed use 
since different algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points specified must be greater than or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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INT_POLYGON_DD 



IMPORT: dgLtypes 
dgLlib 
dgLpoly 



This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style in a device-dependent fashion. 

Syntax 



— »»( INT JOLYGON J3D }— »(T)— » p ° i " 



Q 



operation selector 
array name 



Item 


Description/Default 


Range 
Restrictions 


points 


Expression of TYPE INTEGER 


MININT thru MAXINT 


x array name 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


-32 768 to 32 767 


y array name 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


-32 768 to 32 767 


operation selector array 
name 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


-32 768 to 32 767 



Procedure Heading 

PROCEDURE INT_POLYGON. 



DD ( 



ANY MAR 
ANYUAR 
ANY MAR 



N p o i n t 
X u e c 
Y m e c 
Opcodes 



integer; 

Gshortint_list5 
Gshortint-list 5 
G i n t _ 1 i s t > 



Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 
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Value 



Meaning 





1 
2 



Don't display the line for the edge extending to this vertex from the previous vertex. 

Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or the 
end of the arrays is encountered.) 



Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 

INT_POLYGON_DD is used to output a polygon-set, specified in world coordinates, adhering 
within the capabilities of the device to the polygon style attributes that are currently specified. A 
polygon-set is a set of polygons (called "sub-polygons") that are treated graphically as one 
polygon. The subpolygons in a polygon-set may intersect or overlap each other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub-polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. 

The filling of polygons also depends on how the sub-polygons "nest" within each other. An 
"even-odd" rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 




Polygon Filling 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub- 
polygons are displayed. The edge from the (I-l)th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to 0, i.e., the edge will 
not be drawn. 

When INT_POLYGON_DD is used, the current position is updated to the end of the last 
sub-polygon specified in the polygon-set. The end of the last sub-polygon is defined to be the first 
(implicit last) vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call 
degenerates to an update of the current position to the first coordinate set in the x and y point 
arrays (x coordinate array[l], y coordinate array[l]). 

It is the application program's responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Device capabilities vary widely. Not all devices are able to draw polygon edges as requested. If a 
device is not able to draw polygon edges as requested, they will be simulated in software. The 
simulation will always adhere to the edge value in SET_PGN_STYLE and the operation selector 
in INT_POLYGON_DD, but the line-style and color of the edge will depend on the capability of 
the device to produce lines with those attributes. 

Polygon fill capabilities can vary widely between devices. A device may have no filling capabilities 
at all, may be able to perform only solid fill, or may be able to fill polygons with different fill 
densities and at different fill line orientations. INT_POLYGON_DD tries to match the device 
capabilities to the request. If the device cannot fill the request at all, then no simulation is done 
and the polygon will not be filled. For HPGL plotters, the fill is simulated. For raster devices, if the 
density is greater than 0.5, a solid fill is used, otherwise, the fill is simulated. 

In the case where the polygon style specifies non-display of edged, this would result in no visible 
output although visible output had been specified. To provide some visible output in this case, 
INT_POLYGON_DD will outline the polygon using the color and line-style specified for the fill 
lines. However, only those edge segments specified as displayable by the operation selector array 
will be drawn. Therefore, if all edge segments are specified as non-displayed, there will still be no 
visible output. 

Regardless of the capabilities of the device, INT_POLYGON_DD sets the starting position to the 
first vertex of the last member polygon specified in the call. If there is only one polygon specified, 
the starting position will therefore be set to the first vertex specified. 
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Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

This procedure is the same as the procedure POLYGON_DEV_DEP, with the exception that the 
parameters are of type Gshortint (-32 768. .32 767). When used with some displays this 
procedure may perform about 3 times faster than the POLYGON_DEV_DEP procedure. For all 
other displays this procedure has about the same performance as the POLYGONJDEVJDEP 
procedure. 

The INT_POLYGON_DD procedure only has increased performance when the following condi- 
tions exist: 

• The display is a raster device. 

• The window bounds are within the range -32 768 through 32 767. 

• The window is less then 32 767 units wide and high. 

INT_POLYGON_DD is provided for efficient vector generation. Although its use can be mixed 
with MOVE, LINE, POLYLINE, and POLYGON_DEV_DEP, one dot roundoff errors may result 
with mixed use since different algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (Points) must be greater than or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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INT_POLYLINE 



IMPORT: dgLtypes 
dglJib 



This procedure draws a connected line sequence starting at the specified point. 
Syntax 

array I /TN 
name | ^J_J 



— -(intjolvline)— '■TQ - ** p ° i n 



Item 


Description/Default 


Range 
Restrictions 


points 

x array name 

y array name 


Expression of TYPE INTEGER 

Array of TYPE Gshortint. Gshortint\s a sub- 
range of INTEGER. 

Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


MININT thru MAXINT 
-32 768 to 32 767 

-32 768 to 32 767 



Procedure Heading 

PROCEDURE INT_POLYLINE ( Npts : INTEGER? 

ANYUAR Xuec > Yuec : Gs ho rt i n t_l i s t ) 

Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polyline-set. The vertices must be in order. The vertices for the first sub-polyline must be at the 
beginning of these arrays, followed by the vertices for the second sub-polyline, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The procedure INT_POLYLINE provides the capability to draw a series of connected lines 
starting at the specified point. A complete object can be drawn by making one call to this 
procedure. This call first sets the starting position to be the first elements in the x and y coordinate 
arrays. The line sequence begins at this point and is drawn to the second element in each array, 
then to the third and continues until points-1 lines are drawn. 

This procedure is equivalent to the following sequence of calls: 

I N T _ M U E ( X _ c o o r d i n a t e _ a r r a y [ 1 ] ) Y _ c o o r d i n a t e _ a r r a v C 1 ] ) i 
INT_LINE (X_coo rd inate_a r ray [2] » Y_c o o rd i n at e_a r r ay C 2 3 ) i 
INT_LINE (X _coordiriate_array [3] > Y _ c o o r d i n a t e _ a r r a y [ 3 ] ) i 



INT_LINE ( X-coo rd inat e_a r ray [Points] t Y_c oo rd i n at e_a r rav [Points] ) i 
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The starting position is set to (X_coordinate_array[Points], Y_coordinate_array[ Points]) at the 
completion of this call. 

Specifying only one element, or Points equal to 1, causes a move to be made to the world 
coordinate point specified by the first entries in the two coordinate arrays. 

It is the application program's responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Depending on the nature of the current line-style nothing may appear on the graphics display. 
See SET_L1NE_STYLE for a complete description of how line-style affects a particular point or 
vector. 

The primitive attributes of color, line-style, and line-width apply to polylines. 

This procedure is the same as the POLYLINE procedure, with the exception that the parameters 
are of type Gshortint ( -32 768. .32 767). When used with some displays this procedure may 
perform about 3 times faster than the POLYLINE procedure. For all other displays this procedure 
has about the same performance as the POLYLINE procedure. 

The INT_POLYLINE procedure only has increased performance when the following conditions 
exist: 

• The display must be a raster device. 

• The window bounds within the range -32 768 to 32 767. 

• The window must be less then 32 767 units wide and high. 

INT_POLYLINE is provided for efficient vector generation. Although its use can be mixed with 
MOVE, LINE, and POLYLINE, one dot roundoff errors may result with mixed use since different 
algorithms are used to implement each. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (points) must be greater than or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPH1CSERROR will return a non-zero 
value. 
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LOCATOR_INIT 



IMPORT: dglJib 



This procedure enables the locator device for input. 

Syntax 



— »{locator.jnit)— »{T)— - 



error variable 
name 



KD- 



Item 


Description/Default 


Range 
Restrictions 


device selector 
error variable name 


Expression of TYPE INTEGER 
Variable of TYPE INTEGER 


MININT TO MAXINT 



Procedure Heading 

PROCEDURE LOCATOR_INIT ( Deu_Adr : INTEGER. 

MAR Ierr : INTEGER ) 5 

Semantics 

The device selector specifies the physical addresses of the graphics locator device. 



Device Selector 



2 
100..3199 



Locator Device Selected 



Relative locator, such as knob 
or mouse 

HP-IB device at specified select 
code and address 



The error variable will contain a value indicating whether the locator device was successfully 
enabled. 



Value 



Meaning 




2 



The locator device was successfully initialized. 

Unrecognized device specified. Unable to communicate with a device at the specified 
address, non-existent interface card or non-graphics system supported interface card. 



If the error variable contains a non-zero value, the call has been ignored. 

LOCATOR_INIT enables the logical locator device for input. Enabling the locator includes 
associating the logical locator device with a physical device and initializing the device. The device 
name is set to the name of the physical device, the device status is set to 1 (enabled) and the 
internal device selector used by the graphics library is set equal to the device selector provided by 
the user. This information is available by calling INQ_WS with operation selectors 11052 and 
13052. 

LOCATOR_INIT implicitly makes the picture current before attempting to initialize the device. 

LOCATOR-INIT enables the logical locator device for input. Enabling the locator includes 
associating the logical locator device with a physical device and initializing the device. 
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The graphics library attempts to directly identify the type of device by using its device address in 
some way. The meanings of the device address are defined above. 

At the time that the graphics library is initialized, all devices which are to be used must be 
connected, powered on, ready, and accessible via the specified physical address. Invalid addres- 
sed or unresponsive devices result in that device not being initialized and an error being returned. 

The locator device must be enabled before it is used for input. The locator device is disabled by 
calling LOCATOR_TERM. 

If the graphics display and the locator are not the same physical device (e. g. HP 9826 display and 
HP 9111 locator), then the logical locator limits will be set to the default values for the particular 
locator used. If the graphics display and locator are the same physical device (e.g., HP 9826 
display and HP 9826 knob locator), then the logical locator limits are set to the current view 
surface limits. 

The locator echo position is set to the default value (see SET_ECHO_POS). 

Only one locator device may be enabled at a time. If a locator is currently enabled, then the 
enabled device will be terminated (via LOCATORJTERM) and the call will continue. The locator 
device should be disabled before the termination of the application program. LOCATOR-INIT is 
the complementary routine to LOCATOR-TERM. 

Absolute Locator Limits (HPGL Plotter or Graphics Tablet) 

When the locator device is initialized on an HPGL plotter or graphics tablet, the graphics display is 
left unaltered. HPGL devices are initialized to the following defaults when LOCATOR_INIT is 
executed: 



Plotter/ 


Wide 


High 


Wide 


High 




Resolution 


Tablet 


mm 


mm 


points 


points 


Aspect 


points/mm 


9872 


400 


285 


16000 


11400 


.7125 


40.0 


7580 


809.5 


524.25 


32380 


20970 


.6476 


40.0 


7585 


1100 


891.75 


44000 


35670 


.8107 


40.0 


7586 


1182.8 


898.1 


47312 


35924 


.7593 


40.0 


7470 


257.5 


191.25 


10300 


7650 


.7427 


40.0 


7550 


411.25 


254.25 


16450 


10170 


.6182 


40.0 


7475 


416 


259.125 


16640 


10365 


.6229 


40.0 


9111 


300.8 


217.6 


12032 


8704 


.7234 


40.0 



The maximum physical limits of the locator for a HPGL device not listed above are determined by 
the default settings of PI and P2. The default settings of PI and P2 are the values they have after 
an HPGL 'IN' command. Refer to the specific device manual for additional details. 

The default logical display surface is set equal to the area defined by PI and P2 at the time 
LOCATOR-INIT is invoked. 



Graphics Procedure Reference 273 



Note 

If the paper is changed in an HP 7580 or HP 7585 plotter while the 
graphics locator is initialized, it should be the same size of paper that 
was in the plotter when LOCATOR_INIT was called. If a different size 
of paper is required, the device should be terminated (LOCATOR- 
TERM) and re-initialized after the new paper has been placed in the 
plotter. 

No locator points are returned while the pen control buttons are depressed on HPGL plotters. 

Relative Locators (Knob or Mouse) 

When the locator device is initialized, the graphics display is left unaltered. The default initializa- 
tion characteristics for the knob on various Series 200 computers is listed below: 





Wide 


High 


Wide 


High 




Resolution 


Computer 


mm 


mm 


points 


points 


Aspect 


points/mm 


Model 216 


160 


120 


400 


300 


.75 


2.5 


Model 217 


230 


175 


512 


390 


.7617 


2.226 


Model 220 (HP82913A) 


210 


158 


400 


300 


.75 


1.905 


Model 220 (HP82912A) 


152 


114 


400 


300 


.75 


2.632 


Model 226 


120 


88 


400 


300 


.75 


3.333 


Model 236 


210 


160 


512 


390 


.7617 


2.438 


Model 236 Color 


217 


163 


512 


390 


.7617 


2.39 


Model 237 


312 


234 


1024 


768 


.75 


3.282 



The knob uses the current display limits as its locator limits for locator echoes 2 though 8. For all 
other echoes the above limits are used. An example of when the two limits may differ follows: 

The knob locator is initialized on a Model 226. The graphics display is an HP 98627A color output 
card. The resolution of the locator is through 399 in the X dimension, and through 299 in the Y 
dimension. The resolution of the display is through 511 in the X dimension, and through 389 in 
the Y dimension. When AWAIT_LOCATOR is used with echo 4, the locator will effectively have 
the HP 98627A resolution for the duration of the AWAIT_LOCATOR call. However, if echo 1 is 
used with AWAIT_LOCATOR, the cursor will appear on the Model 226 and the locator has a 
resolution of through 399 and through 299. Note that all conversion routines and inquiries will 
use the Model 226 limits. 

The physical origin of the locator device is the lower left corner of the display. 

Error Conditions 

The graphics system must be initialized or this call will be ignored, an ESCAPE (-27) will be 
generated, and GRAPHICSERROR will return a non-zero value. 
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LOCATORTERM 

This procedure disables the enabled locator device. 

Syntax 



IMPORT: dgLlib 



-•-U-OCATOR-TERM) *~ 



Procedure Heading 

PROCEDURE LOCATOR_TERMi 

Semantics 

LOCATOR_TERM terminates and disables the enabled locator device. It transmits any termina- 
tion sequence required by the device and releases all resources being used by the device. The 
device name is set to the default device name (' ' ), the device status is set to (not enabled) and 
the device address is set to 0. 

LOCATOR-TERM is the complementary routine to LOCATORJNIT. 

If a locator device is used, LOCATOR-TERM should be called before the application program is 
terminated. 

Error Conditions 

The graphics system must be initialized and a locator device enabled or this call will be ignored, an 
ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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MAKE_PIC_CURRENT 



IMPORT: dgLlib 

This procedure makes the picture current. 

Syntax 

— »( MAKE_PIC_CURREN-T)— »- 



Procedure Heading 

PROCEDURE MAKE_PIC_CURRENT; 

Semantics 

The graphics display surface can be made current at any time with a call to MAKE_PIC_ 
CURRENT. This insures that all previously generated primitives have been sent to the graphics 
display device. Due to operating system delays, all picture changes may not have been displayed 
on the graphics display upon return to the calling program. MAKE_PIC_CURRENT is most often 
used in system buffering mode (see SET_TIMING) to make sure that all output has been sent to 
the graphics display device when required. 

Before performing any non-graphics library input or output to an active graphics device, (e.g., a 
Pascal read or write), it is essential that all of the previously generated output primitives be sent to 
the device. If immediate visibility is the current timing mode, all primitives will be sent to the 
device before completion of the call to generate them, but if system buffering is used, MAKE_ 
PIC_CURRENT should be called before performing any non-graphics system I/O. 



The following routines implicitly make the picture current: 

AWAIT_LOCATOR DISPLAY.TERM 

LOCATORJNIT SAMPLE_LOCATOR 



INPUT_ESC 



A call to MAKE_PIC_CURRENT can be made at any time within an application program to insure 
that the image is fully displayed. MAKE_PIC_CURRENT does not modify the current timing 
mode. 

Error Conditions 

The graphics system must be initialized and a display must be enabled or this call will be ignored, 
an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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MARKER 



IMPORT: dglJib 



This procedure outputs a marker symbol at the starting position. 

Syntax 



-~ C*™™y ^G> A^^ 



Item 



marker selector 



Description/Default 



Expression of TYPE INTEGER 



Range 
Restrictions 



M1N1NT TO 
MAXINT 



Recommended 
Range 



1 thru 19 



Procedure Heading 

PROCEDURE MARKER 



( Marker- n u m 



INTEGER ) ? 



Semantics 

The marker selector determines which marker will be output. There are 19 defined invariant 
marker symbols (1-19). They are defined as follows: 



1 -'.' 




7 - rectangle 


13- 


'3' 


2-' + ' 




8 - diamond 


14- 


'4' 


3-'*' 




9 - rectangle with cross 


15- 


'5' 


4-'0' 




10 -'0' 


16- 


'6' 


5-'X" 




11 -T 


17- 


, T 


6 - triai 


igle 


12 -'2' 


18- 
19- 


'8' 
'9' 



Marker numbers 20 and larger are device dependent. 

MARKER outputs the marker designated by the marker selector, centered about the starting 
position. The starting position is left unchanged at the completion of this call. 

If the marker selector specified is greater than the number of distinct marker symbols that are 
supported by a device, then marker number 1 ('.') will be used. INQ_WS can be used to inquire 
the number of distinct marker symbols that are available on a particular graphics display device. 
Depending on a particular display device's capabilities, the graphics library uses either hardware 
or software to generate the marker symbols. 

The size and orientation of markers is fixed and not affected by the viewing transformation. The 
size of markers is device dependent and cannot be changed. 

Only the primitive attributes of color and highlighting apply to markers. However, the marker will 
appear with these attributes only if the device is capable of applying them to markers. 

Error Conditions 

The graphics system must be initialized and a display device enabled or the call will be ignored, an 
ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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MOVE 



IMPORT: dgLlib 



This procedure sets the starting position to the world coordinate specified. 

Syntax 



-^Q<°^)— {D H coorJinat 



coordinate N^. J 



Item 


Description/Default 


Range 
Restrictions 


x coordinate 
y coordinate 


Expression of TYPE REAL 
Expression of TYPE REAL 


— 



Procedure Heading 

PROCEDURE MOVE ( Wx» Wy : REAL )5 

Semantics 

MOVE specifies where the next graphical primitive will be output. It does this by setting the value 
of the starting position to the world coordinate system point specified by the X,Y coordinate 
values and then moving the physical beam or pen to that point. 

The x and y coordinate pair is the new starting position in world coordinates. 

The starting position corresponds to the location of the physical pen or beam in all but four 
instances: after a change in the viewing transformation, after initialization of a graphical display 
device, after the output of a text string, or after the output of a graphical escape function. A call to 
MOVE or INT_MOVE should therefore be made after any one of the following calls to update the 
value of the starting position and in so doing, place the physical pen or beam at a known 
location: SET^SPECT, DISPLAYJNIT, SET_DISPLAY_LIM, OUTPUT_ESC, TEXT, SET_ 
VIEWPORT, and SET_WINDOW. 

Error Conditions 

The graphics system must be enabled and a display device enabled or this call will be ignored, an 
ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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OUTPUT_ESC 



IMPORT: dglJib 



This procedure performs a device dependent escape function to inquire from the graphics 
display device. 

Syntax 

-» ( OUTPUT_ESC )— (O- ^^T 



INTEGER 
array size 



REAL 
array size 



Q 



INTEGER 
array name 



REAL 
array name 



./"""N _| error variable | ^/ V \ _■ 
- ^\Jy*n name T~^i/^ 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


operation selector 


Expression of TYPE INTEGER 


MININT to 
MAXINT 


— 


INTEGER array 
size 


Expression of TYPE INTEGER 


MININT to 
MAXINT 


>0 


REAL array size 


Expression of TYPE INTEGER 


MININT to 
MAXINT 


>0 


INTEGER array 
name 


Any valid variable. 
Should be INTEGER array 


— 


— 


REAL array name 


Any valid variable. 
Should be REAL array 


— 


— 


error variable name 


Variable of TYPE INTEGER 


- 


- 



Procedure Heading 

PROCEDURE OUTPUT_ESC ( 



AN YVAR 

ANYUAR 

UAR 



Opcode 
I s i z e 
Rsi ze 
Hist 
Rl ist 
I e r r 



INTEGER i 

INTEGER ; 

integer; 

G i n t _ 1 i s t ; 
Greal-list? 
INTEGER ) ; 



Semantics 

The operation selector determines the device dependent output escape function to be per- 
formed The codes supported for a given device are described in the device handlers section of 
this document. 

The INTEGER array size is the number of INTEGER parameters contained in the INTEGER 
array. The thousand's digit of the operation selector is the number of INTEGER parameters that 
the graphics system expects. 
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The REAL array size is the number of REAL parameters contained in the REAL array by the 
escape function. The ten-thousand's digit of the operation selector is the number of REAL 
parameters that the graphics system expects. 

The INTEGER array is the array in which zero or more INTEGER parameters are contained. 

The REAL array is the array in which zero or more REAL parameters are contained. 

The error variable will contain a value indicating whether the escape function was performed. 

Value Meaning 




1 
2 
3 
4 



Output escape function successfully sent to the device. 

Operation not supported by the graphics display device. 

The INTEGER array size is not equal to the number of required INTEGER parameters. 

The REAL array size is not equal to the number of required REAL parameters. 

Illegal parameters specified. 



If the error variable contains a non-zero value, the call has been ignored. 

OUTPUT_ESC allows application programs to access special device features on a graphics 
display device. The desired escape function is specified by a unique value for opcode. 

The type of information passed to the graphics display device is determined by the value of 
opcode. The graphics library does not check OUTPUT_ESC parameters which will be sent 
directly to the display device. This can lead to device dependent results if out of range values are 
sent. 

Output escape functions only apply to the graphics display device. 

The starting position may be altered by a call to OUTPUT_ESC. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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Raster Device Escape Operations 

Operation 

Selector Function 



52 
53 



250 
1050 1 
1051 1 
1052 



1053 



1054 



Dump graphics of the currently active display device if it is the console or a bit-mapped display. 
Graphics will be dumped to the graphics printer (PRINTER:); if color, all planes are ORed. 
Await vertical blanking. This escape function will not exit until the CRT is performing vertical 
blanking. 

The following example shows how to use this function when changing the color table to 
reduce flicker. 



OUTPUT_ESC ( 53 
SET_C0L0R_TABLE 



t t d u m m Y 
( » r » St b 



d u m in ■/ t 
> i 



The color table is not changed until the crt is blank (during a refresh cycle). 
Otherwise changing the color map in the middle of a scan would create a screen 
that was half the old color, and half the new color for one frame (1/60 sec). To the 
eye this would look like a flicker. 

Specify device limits. 

REAL Array [1] = Points (dots) per mm in X direction 
REAL Array [2] = Points (dots) per mm in Y direction 

Turn on or off the graphics display. 

INTEGER array [1] = -> turn display off 
INTEGER array [1] <> -* turn display on. 

Turn on or off the alpha display. 

INTEGER array [1] = -» turn display off 
INTEGER array [1] <> -> turn display on. 

Set special drawing modes. Using this escape function will redefine the meaning of 
the set color attribute. For details on how a given drawing mode affects a color see 
"Drawing Modes" in SET_COLOR. This drawing mode does not apply to device 
dependent polygons. Out of range values default to dominate drawing mode. 

INTEGER array[l] = 0^ Dominate drawing mode. 

= 1 — » Non-dominate drawing mode. 

= 2 — » Erase drawing mode. 

= 3 — » Complement drawing mode. 

Dump graphics (from the specified color planes) to the graphics printer (PRINTER: 
graphics on a Model 237 if it is the currently active display. 

INTEGER array [1] = Color plane selection code. 

BIT 1 = 1 -* Select plane 1. 

(Blue on HP 98627A) 

BIT 2 = 1 -> Select plane 2. 

(Green on HP 98627A) 

BIT 3 = 1—* Select plane 3. 

(Red on HP 98627A) 

BIT 4 = 1 -> Select plane 4. 

Clear selected graphics planes. 

INTEGER Array [1] = - Clear all planes 

INTEGER Array [1] <> - Color plane selection code. 

BIT 1 = 1 Clear plane 1 ( Blue on HP 98627A ) 

BIT 2 = 1 Clear plane 2 ( Green on HP 98627A ) 

BIT 3 = 1 Clear plane 3 ( Red on HP 98627A ) 

BIT 4 = 1 Clear plane 4 



Also dumps 



1 This operation is not available for the Model 237 computer. 
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Operation 
Selector 



Function 



10050 Set all HP 9836C color table locations. This escape function allows the user to 

change all locations in the hardware color map with one procedure. The software 
maintained color table will be updated by this call. This escape function is the same 
as calling SET_COLOR_TABLE with indexes 0-15. 

REAL Array [1] = Parml 

REAL Array [2] = Parm2 Index 

REAL Array [3] = Parm3 

REAL Array [4] = Parml 

REAL Array [5] = Parm2 Index 1 

REAL Array [6] = Parm3 



REAL Array [46] = Parml 

REAL Array [47] = Parm2 Index 15 

REAL Array [48] = Parm3 

Parml, Parm2, and Parm3 are defined to be the same as used with SET_COLOR_ 

TABLE. 

The size of the INTEGER array must equal and the size of the REAL array 48. 

The following table shows which escape codes are supported on which Series 200 raster displays: 



Operation 


















Selector 


216 


217 


220 


226 


236 


236 Color 


237 


98627A 


52 


yes 


yes 


yes 


yes 


yes 


yes 


yes 


yes 


53 


no 


no 


no 


no 


no 


yes 


no 


no 


250 


no 


no 


no 


no 


no 


no 


no 


yes 


1050 


yes 


yes 


yes 


yes 


yes 


yes 


no 


yes 


1051 


yes 


yes 


yes 


yes 


yes 


yes 


no 


no 


1052 


yes 


yes 


yes 


yes 


yes 


yes 


yes 


yes 


1053 


no 


no 


no 


no 


no 


yes 


yes 


yes 


1054 


yes 


no 


no 


yes 


yes 


yes 


no 


yes 


10050 


no 


no 


no 


no 


no 


yes 


no 


no 
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HPGL Plotter Escape Operations 

Operation 

Selector Function 



1052* 



1052 



1053 



2050 



2051 



2052 



Enable cutter. Provides means to control the Plotter paper cutters. Paper is cut after it is 
advanced. 

INTEGER array [1] = Cutter is disabled. 
INTEGER array [1] <> Cutter is enabled. 

Set automatic pen. This instruction provides a means for utilizing the smart pen options of 
the plotter. Initially, all automatic pen options are enabled. 

INTEGER array [1]: BIT 1 = 1 

Lift pen if it has been down for 60 seconds. 

BIT 2 = 1 

Put pen away if it has been motionless for 20 seconds. 

BIT 3 = 1 

Do not select a pen until a command which makes a mark. This causes the pen to remain 
in the turret for the longest possible time. 

Advance the paper either one half or a full page. 

INTEGER array [1] = >> Advance page half 
INTEGER array [1] <> >> Advance page full 

Select pen velocity. This instruction allows the user to modify the plotter's pen speed. Pen 
speed may be set from 1 to the maximum for the given device. 

INTEGER array [1] = Pen speed (INTEGER from 1 to device max). 
INTEGER array [2] = Pen number (INTEGER from 1 to 8; other integers 
select all pens) 

Select pen force. The force may be set from 10 to 66 gram-weights. 

INTEGER array [1] = Pen force (INTEGER from 1 to 8). 
1: 10 gram-weights 
2: 18 gram-weights 
3: 26 gram-weights 
4: 34 gram-weights 
5: 42 gram-weights 
6: 50 gram-weights 
7: 58 gram-weights 
8: 66 gram-weights 

INTEGER array [2] = Pen number (INTEGER 1 to 8; other integers 
select all pens) 

Select pen acceleration. The acceleration may be set from 1 to 4 G's. 

INTEGER array [1] = Pen acceleration (INTEGER from 1 to 4). 

INTEGER array [2] = Pen number (INTEGER 1 to 8; other integers select all pens) 



Operation 
















Selector 


9872 


7470 


7475 


7550 


7580 


7585 


7586 


1052* 


S/T 


no 


no 


no 


no 


no 


no 


1052 


no 


no 


yes 


yes 


yes 


yes 


yes 


1053 


S/T 


no 


no 


yes 


no 


no 


yes 


2050 


yes 


yes 


yes 


yes 


yes 


yes 


yes 


2051 


no 


no 


yes 


yes 


yes 


yes 


yes 


2052 


no 


no 


yes 


yes 


yes 


yes 


yes 
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POLYGON 



IMPORT: dgLtypes 
dgLlib 
dgLpoly 



This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style exactly as specified (i.e., device-independent results). 

Syntax 



—►^POLYGON}— *"(T)— » Points 



G 



operation selector 
array name 



Item 




Description/Default 


Range 
Restrictions 


points 




Expression of TYPE INTEGER 


MININT thru MAXINT 


x array name 




Array of TYPE REAL. 


- 


y array name 




Array of TYPE REAL. 


- 


operation selector 
name 


array 


Array of TYPE Gshortint. Gshortint is a sub- 
range of INTEGER. 


-32 768 to 32 767 



Procedure Heading 

PROCEDURE POLYGON ( 



ANYYAR 
ANYYAR 
ANYUAR 



N p o i n t 
X m e c 
Y vec 
Opcodes 



integer; 

Greal-list i 
Greal_list ! 
Gshortint-list) i 



Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 
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Value 



Meaning 




1 
2 



Don't display the line for the edge extending to this vertex from the previous vertex. 

Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or the 
end of the arrays is encountered.) 



Note 
The first entry in the operation selector array must be 2. since it is the 
first vertex of a sub-polygon. 

POLYGON is used to output a polygon-set, specified in world coordinates, adhering exactly to 
the polygon style attributes that are currently specified. A polygon-set is a set of polygons (called 
' 'sub-polygons' ' ) that are treated graphically as one polygon. This is accomplished by ' 'stacking' ' 
the sub-polygons. The subpolygons in a polygon-set may intersect or overlap each other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub- polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. A dot will disappear on an edged polygon if the edge is done with 
a complementing line. 

The filling of polygons also depends on how the sub-polygons "nest" within each other. An 
"even-odd" rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 




Polygon Filling 



Graphics Procedure Reference 285 



Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET_PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub- 
polygons are displayed. The edge from the (I-l)th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to and the edge will 
not be drawn. 

When POLYGON is used, the current position is updated to the end of the last sub-polygon 
specified in the polygon-set. The end of the last sub-polygon is defined to be the first (implicit last) 
vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call degenerates to 
an update of the current position to the first coordinate set in the x and y point arrays (x 
coordinate array! 1], y coordinate array! 1]). 

It is the application program's responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points specified must be greater than or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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POLYGON DEVDEP 



IMPORT: dgLtypes 
dglJib 
dgLpoly 



This procedure displays a polygon-set starting and ending at the specified point adhering to the 
specified polygon style in a device- dependent fashion. 

Syntax 



— -(POLYGONJEVJEP)— *^T)~ » p° - n 



Q 



operation selector 
array name 



Item 




Description/Default 


Range 
Restrictions 


points 




Expression of TYPE INTEGER 


MININT thru MAXINT 


x array name 




Array of TYPE REAL. 


- 


y array name 




Array of TYPE REAL. 


- 


operation selector 


array 


Array of TYPE Gshortint. Gshortintis a sub 


- 32 768 to 32 767 


name 




range of INTEGER. 





Procedure Heading 

PROCEDURE POLYGON.DEV 



.DEP 



AN WAR 
AN WAR 
ANWAR 



N p o i ri t 

X m e c 
Y u e c 
Opcodes 



: integer; 

Greal_li5t i 
Greal_list ! 
Gshortint-list) 



Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polygon-set. The vertices must be in order. The vertices for the first sub-polygon must be at the 
beginning of these arrays, followed by the vertices for the second sub-polygon, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The operation selector array contains a series of integer operation selectors defining which 
vertices start new polygons, and defining which edges should be displayed. 
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Value 



Meaning 

Don't display the line for the edge extending to this vertex from the previous vertex. 

Display the line for the edge extending to this vertex from the previous vertex. 

This vertex is the first vertex of a sub-polygon. Succeeding vertices are part of a 
sub-polygon until a new start-of-polygon operation selector (2) is encountered. (Or the 
end of the arrays is encountered. ) 





1 
2 



Note 

The first entry in the operation selector array must be 2, since it is the 
first vertex of a sub-polygon. 

POLYGON_DEV_DEP is used to output a polygon-set, specified in world coordinates, adhering 
within the capabilities of the device to the polygon style attributes that are currently specified. A 
polygon-set is a set of polygons (called "sub-polygons") that are treated graphically as one 
polygon. The subpolygons in a polygon-set may intersect or overlap each other. 

The edge of a sub-polygon is defined as the line sequence that connects its vertices in the order 
specified. If the last vertex specified for a sub- polygon is not the same as the first, they are 
automatically connected. 

When a polygon-set is displayed, the primitive attributes for polygons and lines define its 
appearance. In particular, the interior of the polygon-set will be filled according to the attributes 
of polygon style, polygon interior color and polygon interior line-style. If the edges are to be 
displayed as specified in the polygon style, the edges will adhere to the current line attributes of 
color, line-style and line-width. 

The filling of polygons also depends on how the sub-polygons "nest" within each other. An 
"even-odd" rule is used for determining which areas will be filled. Moving across the screen, 
count the edges of the polygon. Odd-numbered edges will turn the fill on and even-numbered 
edges will turn the fill off. The picture below will help clear up how the fills work. 




Polygon Filling 
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Refer to SET_PGN_TABLE, SET_PGN_STYLE, SET_PGN_COLOR, SET„PGN_LS for a more 
detailed description of how attributes affect polygons. 

As stated above, the values in the operation selector array define how the edges of the sub- 
polygons are displayed. The edge from the (I-l)th vertex to the Ith vertex will only be displayed if 
the Ith entry in the operation selector array equals 1. To display the edge from the last vertex to 
the first vertex of a sub-polygon, the first vertex must be explicitly respecified after all the other 
vertices of the sub-polygon, with an operation selector equal to 1. Otherwise the edge from the 
last vertex to the first will not be drawn. It will, however, automatically be connected for polygon 
filling. 

If it is within the capabilities of the device, filling of the sub-polygon will be done to the 
sub-polygon edges regardless of whether the edges are displayed. If an entry in the operation 
selector array does not equal 0, 1, or 2, it will be treated as if it were equal to 0, i.e., the edge will 
not be drawn. 

When POLYGON_DEV_DEP is used, the current position is updated to the end of the last 
sub-polygon specified in the polygon-set. The end of the last sub-polygon is defined to be the first 
(implicit last) vertex of the subpolygon. So, if there is only one vertex in a polygon-set this call 
degenerates to an update of the current position to the first coordinate set in the x and y point 
arrays (x coordinate array[l], y coordinate array[l]). 

It is the application program's responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Device capabilities vary widely. Not all devices are able to draw polygon edges as requested. If a 
device is not able to draw polygon edges as requested, they will be simulated in software. The 
simulation will always adhere to the edge value in SET_PGW_STYLE and the operation selector 
in POLYGON J3EVDEP, but the line-style and color of the edge will depend on the capability of 
the device to produce lines with those attributes. 

Polygon fill capabilities can vary widely between devices. A device may have no filling capabilities 
at all, may be able to perform only solid fill, or may be able to fill polygons with different fill 
densities and at different fill line orientations. POLYGON_DEV_DEP tries to match the device 
capabilities to the request. If the device cannot fill the request at all, then no simulation is done 
and the polygon will not be filled. For HPGL plotters, the fill is simulated. For raster devices, if the 
density is greater than 0.5, a solid fill is used, otherwise, the fill is simulated 

In the case where the polygon style specifies non-display of edged, this would result in no visible 
output although visible output had been specified. To provide some visible output in this case, 
POLYGON_DEV_DEP will outline the polygon using the color and line-style specified for the fill 
lines. However, only those edge segments specified as displayable by the operation selector array 
will be drawn. Therefore, if all edge segments are specified as non-displayed, there will still be no 
visible output. 

Regardless of the capabilities of the device, POLYGON„DEV_DEP sets the starting position to 
the first vertex of the last member polygon specified in the call. If there is only one polygon 
specified, the starting position will therefore be set to the first vertex specified. 
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Polygons are defined to be closed surfaces. When a sub-polygon extends beyond a clipping edge 
the closed nature of the sub-polygon is destroyed. As with other primitives, unpredictable results 
may occur if the sub-polygon extends beyond the clipping window. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (Points) must be greater than or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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POLYLINE 



IMPORT: dglJib 



This procedure draws a connected line sequence starting at the specified point. 

Syntax 

array I /TN 
name | ^JJ 



— ^polyline)— »*{T)— ** P Q i n 



Item 


Description/Default 


Range 
Restrictions 


points 

x array name 

y array name 


Expression of TYPE INTEGER 
Array of TYPE REAL. 
Array of TYPE REAL. 


MININT thru MAXINT 



Procedure Heading 

PROCEDURE POLYLINE 



Npt s 
AN WAR Xuec > Yuec 



integer; 

Greal_l i st ) 



Semantics 

Points is the number of vertices in the polygon set. 

The x and y coordinate arrays contain the world coordinate values for each vertex of the 
polyline-set. The vertices must be in order. The vertices for the first sub-polyline must be at the 
beginning of these arrays, followed by the vertices for the second sub-polyline, etc. So, the 
coordinate arrays must contain a total number of vertices that equals points. 

The procedure POLYLINE provides the capability to draw a series of connected lines starting at 
the specified point. A complete object can be drawn by making one call to this procedure. This 
call first sets the starting position to be the first elements in the x and y coordinate arrays. The line 
sequence begins at this point and is drawn to the second element in each array, then to the third 
and continues until points-1 lines are drawn. 

This procedure is equivalent to the following sequence of calls: 



MOVE (> 
LINE (> 
LINE (> 



_coordinate_array[l]>Y_caordi n a t e _ a r r a '/ t 1 ] ) ! 
_coord i n a t e _ a r r a y C 2 ] > Y _ c o o r d i n ate_array[2H) 5 
_ c o o r d i n a t e _ a r r a y [ 3 ] t Y _ c o o r d i n a t e _ a r r a y [ 3 ] ) 5 



LINE ( X _ c o o r d i n a t e _ a r r a v C P o i n t s ] > Y _ c o o r d i n a t e _ a r r a y C P o i n t s 3 ) 5 

The starting position is set to (X_coordinate_array[Points], Y^coordinate_array[Points]) at the 
completion of this call. 
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Specifying only one element, or Points equal to 1, causes a move to be made to the world 
coordinate point specified by the first entries in the two coordinate arrays. 

It is the application program's responsibility to ensure that the arrays are all dimensioned to at 
least the number of elements specified by points and that at least that many values are contained 
in each array. 

Depending on the nature of the current line-style nothing may appear on the graphics display. 
See SET_LINE_STYLE for a complete description of how line-style effects a particular point or 
vector. 

The primitive attributes of color, line-style, and line-width apply to polylines. 

Error Conditions 

The graphics system must be initialized, a graphics display must be enabled, all parameters must 
be within specified limits and the number of points (points) must be greater than or the call will 
be ignored, an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SAMPLE_LOCATOR 



IMPORT: dglJib 



This procedure samples the current locator device 

Syntax 



— » (SAMPLEJ-0CAT0R) -H»(T)- H seVecfo 



ordinate ] ^J \ \ _ 
name | ^J_J~~^ 



Item 


Description/Default 


Range 
Restrictions 


echo selector 

x coordinate name 

y coordinate name 


Expression of TYPE INTEGER 
Variable of TYPE REAL 
Variable of TYPE REAL 


MININT to MAXINT 



Procedure Heading 

PROCEDURE SAMPLE-LOCATOR ( Echo : INTEGER! 

UAR Wx j Wy : REAL ) 5 

Semantics 

The echo selector determines the level of input echoing. Possible values are: 

- No echo. 

s^l - Echo on the locator device. 

The x and y coordinates are the values of the coordinates, expressed in world coordinate units, 
returned from the enabled locator device. 

SAMPLE-LOCATOR returns the current world coordinate value of the locator without waiting 
for any user intervention. Typically, the locator is sampled in applications involving the con- 
tinuous input of data points that are very close together. 

If the point sampled is outside of the current logical locator limits, the transformed point will still 
be returned . 

The number of echoes supported by a locator device and the correlation between the echo value 
and the type of echoing performed is device dependent. Most locator devices support at least one 
form of echoing. Possible echoes are beeping, displaying the point sampled, etc. See the locator 
descriptions below to find the locators supported by the various devices. If the echo value is larger 
than the number of echoes supported by the enabled locator device, then echo 1 will be used. 

Locator echoing can only be performed on the locator device. The locator echo position is not 
used in conjunction with any echoes performed while sampling a locator. 



Graphics Procedure Reference 293 



SAMPLE-LOCATOR implicitly makes the picture current before sampling the locator. 

Relative Locators (Knob or Mouse) 

The keyboard beeper is sounded when the locator is sampled if an echo is selected (echo 
selectors^). The sample locator function returns the last AWAIT_LOCATOR result or 0.0, 0.0 if 
AWAIT_LOCATOR has not been invoked since LOCATORJNIT. 

Absolute Locators (HPGL Plotter or Graphics Tablet) 

The SAMPLE_LOCATOR function returns the current locator position without waiting for an 
operator response (pen position on plotters). On a 9111A graphics Tablet, the beeper is sounded 
when the stylus is depressed. For echo selectors greater than or equal to 9, the same echo as echo 
selector 1 is used. 

Error Conditions 

The graphics system must be initialized and a locator device enabled or this call will be ignored, an 
ESCAPE {-21) will be generated, and GRAPHICSERROR will return a non-zero value. 
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SET_ASPECT 



IMPORT: dglJib 



This procedure redefines the aspect ratio of the virtual coordinate system. 



Syntax 

— » ( SETJ^SPECT ) ~H^r)~H^ 



KD-* 



Item 


Description/Default 


Range 
Restrictions 


x size 
y size 


Expression of TYPE REAL 
Expression of TYPE REAL 


— 



Procedure Heading 



PROCEDURE SET_ASPECT ( X_size, Y_size 



REAL ) i 



Semantics 

The x size is the width of the virtual coordinate system in dimensionless units. The size must be 
greater than zero. 

The y size is the height of the virtual coordinate system in dimensionless units. The size must be 
greater than zero. 

SET_ASPECT sets the aspect ratio of the virtual coordinate system, and hence the view surface, 
to be y size divided by x size. A ratio of 1 defines a square virtual coordinate system, a ratio greater 
than 1 specifies it to be higher than it is wide; and a ratio less than 1 specifies it to be wider than it is 
high. Since x size and y size are used to form a ratio, they may be expressed in any units as long as 
they are the same units. 

The range of coordinates for the virtual coordinate system is calculated based on the value of the 
aspect ratio. The coordinates of the longer axis are always set to range from 0.0 to 1.0 and those 
of the shorter axis from to a value that achieves the specified aspect ratio. SET_ASPECT 
defines the limits of the virtual coordinate system. 



ASPECT RATIO (AR) 



AR< 1 

AR = 1 
AR> 1 



X LIMITS 



0.0, 1.0 
0.0, 1.0 
0.0, 1.0 /AR 



Y LIMITS 



0.0, 1.0 
0.0, 1.0 
0.0, 1.0 



AR 
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When a call to SET_ASPECT is made, the graphics system sets the viewport equal to the limits of 
the virtual coordinate system. This routine can therefore be used to access the entire logical 
display surface. A program could display an image on the entire HP 9826 graphics display, which 
has an aspect ratio of 399/299, in the following manner: 

SET^\SPECT ( 399, 299 ); 

To set the aspect ratio to the entire display in a device independent manor, INQ_WS may be used 
as follows: 

PROCEDURE Set_max_aspect ! 



CONST 



Ge t_as pec t : 



'.5 a 



MAR 



D u m m v 
Error 
Ratio_l ist 



INTEGER? 

integer; 

ARRAY [ 1 . .2] 



of real; 



BEGIN {PROCEDURE Be t_max_as pec t > 

I N Q _ W S ( G e t _ a s p e c t 1 » > 2 t D u m m y > D u mm v > RatiQ_list» Error)! 

IF Error=0 THEN 

SET. ASPECT ( 1 ,0 »Ratio_l ist [2] ) ! 
END! -[PROCEDURE Se t_max_as pec t > 

The initial value of the aspect ratio is 1, setting the virtual coordinate system to be a square. This 
square is mapped to the largest inscribed square on any display surface, so that the viewable area 
is maximized. As a result, the initial virtual coordinate system limits range from 0.0 to 1.0 in both 
the X and Y directions. A program can access the largest inscribed rectangle on any display 
surface by modifying the value of the aspect ratio. The exact placement of the rectangle on the 
display surface is device dependent, but it is centered on CRT's and justified in the lower left hand 
corner of plotters. 

The starting position is not altered by this call. Since this call redefines the viewing transformation, 
the starting position may no longer represent the last world coordinate position. A call to MOVE 
or INT_MOVE should therefore be made after this call to update the starting position. 

If the logical locator is associated with the same physical device as the graphics display, then a call 
to SET_ASPECT will set the logical locator limits equal to the new limits of the virtual coordinate 
system. 

Since the window is not affected by the SET_ASPECT procedure, distortion may result in the 
window to viewport mapping if the window does not have the same aspect ratio as the virtual 
coordinate system (see SET_WINDOW). 

The locator echo position is set to the default value by this procedure. 



Error Conditions 

The graphics system must be initialized and both X and Y size must be greater than zero or this call 
will be ignored, an ESCAPE (-27) will be generated, and GRAPH1CSERROR will return a 
non-zero value. 
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SET_CHAR_SIZE 



IMPORT: dgLlib 



This procedure sets the character size attribute for graphical text. 

Syntax 



-*-TsET.CHAR_SIZe) — »-/( Y»- width -»-/ , )-*- 



Item 



Description/Default 



Range 
Restrictions 



width 
height 



Expression of TYPE REAL 
Expression of TYPE REAL 



Procedure Heading 

PROCEDURE SET_CHAR_SIZE ( Width* Heisfht : REAL )! 

Semantics 

The width is the requested graphics character cell width in world coordinate units, (width <> 
0.0) 

The height is the requested graphics character cell height in world coordinate units, (height <> 
0.0) 

SET_CHAR_SIZE sets the character size for subsequently output graphics text. The absolute 
value of width and height are used to specify the world coordinate size of a character cell. 
Therefore, the actual physical size of a character output is determined by applying the current 
viewing transformations to the world coordinate units specification. 

The default character size (set by GRAPHICS-INIT and DISPLAY JNIT) is dependent upon the 
physical device associated with the graphical display device. The size is determined as follows: 

• Height : = .05 x (height of the world coordinate system) 

• Width : = .035 x (width of the world coordinate system) 

If a change is made to the viewing transformation (by SET_WINDOW, SET_VIEWPORT, 
SET_DISPLAY_LIM, or SET_ASPECT), the value of the character size attribute will not be 
changed, but the actual size of the characters generated may be modified. 

Error Conditions 

The graphics system must be initialized, a display must be enabled, and width and height must 
both be non-zero or this call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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SET_COLOR 

IMPORT: dgLlib 

This procedure sets the color attribute for output primitives except for polygon interior fill. 

Syntax 

— < set_color y *(Ty* \7IrI^'r 



Item 



Description/Default 



Range 
Restrictions 



color selector 



Expression of TYPE INTEGER 



Procedure Heading 

PROCEDURE SET_COLOR ( Color : INTEGER )i 

Semantics 

SET_COLOR sets the color attribute for the following primitives: 

Lines 
Markers 
Polylines 
Polygon Edges 
Text 

At device initialization a default color table is created by the graphics system. The size and 
contents of the table are device dependent. At least one entry exists for all devices. A call to 
INQ_WS with OPCODE equal to 1053 will return the number of colors available on a given 
graphics device. Some devices allow the color table to be modified with SET_TABLE. 

The color selector is an index into the color table. The contents of the color table are then used to 
specify the color when primitives are drawn. On some devices (HPGL plotters), the color selector 
maps directly to a pen number for the device. On the HP 9836C, the entries in the color table can 
be modified with SET_COLOR_TABLE. 

The default value of the color attribute is 1. If the value of the color selector is not supported on 
the graphics display, the color attribute will be set to 1. 

A color selector of has special effects depending on the graphics display used. For raster 
devices, a color selector of means to draw in the background color. For most plotters, it puts the 
pen away. 
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If the device is not capable of reproducing a color in the color table, the closest color which the 
device is capable of reproducing is used instead. On some devices, this may depend on the 
primitive being displayed. For example, the HP98627A color output interface card is capable of a 
large selection of polygon fill colors, but only 8 line colors. Thus, the fill color could match the 
selected color much more closely than the line color used to outline the polygon. 



Default Raster Color Map 

The following table shows the default (initial) color table for the black and white displays 
9816 / HP 9920 / HP 9826 / HP 9836): 



HP 



Index # 


Hue 


Saturation 


Luminosity 














1 








1.0000 


2 








0.9375 


3 








0.8750 


4 








0.8125 


5 








0.7500 


6 








0.6875 


7 








0.6250 


8 








0.5625 


9 








0.5000 


10 








0.4375 


11 








0.3750 


12 








0.3125 


13 








0.2500 


14 








0.1875 


15 








0.1250 


16 








0.0625 



Colors 17 though 31 are set to white. 

The following table shows the default (initial) color table for the color displays (HP 9836C and HP 
98627A): 



Index # 


Color name 


Red 


Green 


Blue 





Black 


0.000000 


0.000000 


0.000000 


1 


White 


1.000000 


1.000000 


1.000000 


2 


Red 


1.000000 


0.000000 


0.000000 


3 


Yellow 


1.000000 


1.000000 


0.000000 


4 


Green 


0.000000 


1.000000 


0.000000 


5 


Cyan 


0.000000 


1.000000 


1.000000 


6 


Blue 


0.000000 


0.000000 


1.000000 


7 


Magenta 


1.000000 


0.000000 


1.000000 


8 


Black 


0.000000 


0.000000 


0.000000 


9 


Olive green 


0.800000 


0.733333 


0.200000 


10 


Aqua 


0.200000 


0.400000 


0.466667 


LI 


Royal blue 


0.533333 


0.400000 


0.666667 


12 


Violet 


0.800000 


0.266667 


0.400000 


13 


Brick red 


1.000000 


0.400000 


0.200000 


14 


Burnt orange 


1.000000 


0.466667 


0.000000 


15 


Grey brown 


0.866667 


0.533333 


0.266667 



Colors 9 though 15 are a graphic designers idea of colors for business graphics. Color table 
entries not shown above are set to white. 
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Raster Drawing Modes 

For raster devices (e.g., HP 9836 display) the effect of the color selectors depends on the current 
drawing mode (drawing mode is set using the OUTPUT_ESC function). The color selectors and 
their effects are listed below: 



Mode 


Color 
Selector 
= 


Color 
Selector 
> = 1 


DOMINATE 

(Default mode) 


Background 
(erase, set 
bits to 0) 


Draw 

(set bits to 1, 

overwrite current pattern) 


NON-DOMINATE 


Background 
(erase, set 
bits to 0) 


Draw 

(set bits to 1 

Inclusive OR 

with current pattern) 


ERASE 


Background 
(erase, set 
bits to 0) 


Background 
(erase, set 
bits to 0) 


COMPLEMENT 


Background 
(erase, set 
bits to 0) 


Complement 
(Invert bits in 
selected planes) 



Plotters 

A Color Selector of selects no pens (the current pen is put away). The supported range of Color 
Selectors for each supported plotter is: 

• 9872A - thru 4 

• 9872B - thru 4 

• 9872C/S/T - thru 8 

• 7580A/7585A - thru 8 

• 7470A - thru 2 



Error Conditions 

The graphics system must be initialized and a display must be enabled or this call will be ignored, 
an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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SET_COLOR_MODEL 



IMPORT: dgLlib 



This procedure chooses the color model for interpreting parameters in the color table. 

Syntax 



— ^set_color_model )-^(T)- H se 7e d c e t^ 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


model selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


lor 2 



Procedure Heading 

PROCEDURE SET_COLOR_MODEL ( MODEL : integer ); 

Semantics 

The model selector determines the color model which will be used to interpret the values passed 
to the color table with SET_COLOR_TABLE or read from it with INQ COLOR_TABLE. 



Value 



Meaning 



RGB (Red-Green-Blue) color cube. 

HSL (Hue-Saturation-Luminosity) color cylinder 



The RGB physical model is a color cube with the primary additive colors (red, green, and blue) as 
its axes. With this model, a call to SET_COLOR TABLE specifies a point within the color cube 
that has a red intensity value (X-coordinate), a green intensity value ( Y-coordinate) and a blue 
intensity value (Z-coordinate). Each value ranges from zero (no intensity) to one. 

Effects of RGB color parameters 



Parm 1 (RED) 


Parm 2 (GREEN) 


Parm 3 (BLUE) 


Resultant color 


1.0 


1.0 


1.0 


White 


1.0 


0.0 


0.0 


Red 


1.0 


1.0 


0.0 


Yellow 


0.0 


1.0 


0.0 


Green 


0.0 


1.0 


1.0 


Cyan 


0.0 


0.0 


1.0 


Blue 


1.0 


0.0 


1.0 


Magenta 


0.0 


0.0 


0.0 


Black 
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The HSL perceptual model is a color cylinder in which: 

• The angle about the axis of the cylinder, in fractions of a circle is the hue (red is at 0, green is 
at 1/3 and blue is at 2/3). 

• The radius is the saturation. Along the center axis of the cylinder, (saturation equal zero) the 
colors range from white through grey to black. Along the outside of the cylinder (saturation 
equal one) the colors are saturated with no apparent whiteness. 

• The height along the center axis is the luminosity (the intensity or brightness per unit area). 
Black is at the bottom of the cylinder (luminosity equal zero) and the brightest colors are at 
the top of the cylinder (luminosity equal one) with white at the center top. 

Hue (angle), saturation (radius), and luminosity (height) all range from zero to one. Using this 
model, a call to SET_COLOR_TABLE specifies a point within the color cylinder that has a hue 
value, a saturation value, and a luminosity value. 

Effects of HSL color parameters 



Parm 1 (Hue) 


Parm 2 (Sat) 


Parm 3 (Lum) 


Resultant color 


Don't Care 


0.0 


1.0 


White 


0.0 


1.0 


1.0 


Red 


1/6 


1.0 


1.0 


Yellow 


2/6 


1.0 


1.0 


Green 


3/6 


1.0 


1.0 


Cyan 


4/6 


1.0 


1.0 


Blue 


5/6 


1.0 


1.0 


Magenta 


Don't Care 


Don't Care 


0.0 


Black 



When a call to SET_COLOR_MODEL switches color models, parameter values in subsequent 
calls to SET_COLOR_TABLE then refer to the new model. Switching models does not affect 
color definitions that were previously made using another model. Note that when the value of a 
color table entry is inquired (INQ_COLOR_TABLE), it is returned in the current model, which 
may not be the model in which it was originally specified. 

Not all color specifications can be displayed on every graphics device, since the devices which the 
graphics library supports differ in their capabilities. If color specification is not available on a 
device, the graphics system will request the closest available color. 

Error Conditions 

The graphics system must be initialized and the color selector must evaluate to or 1 or this call 
will be ignored, an ESCAPE (-27) will be generated, and GRAPHICSERROR will return a 
non-zero value. 
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SET COLOR_TABLE 



IMPORT: dgLlib 



This procedure redefines the color description of the specified entry in the color table. This color 
definition is used when the color index is selected via SET„COLOR. 

Syntax 



— "\JJSET_C0L0R_TABLEj *\^_J *" selector vl/ *" parameter \J_J *" parameter *\iJ 'N 



I J thT7 



kWD— 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


entry selector 


Expression of TYPE INTEGER 


MININT to 
MAXINT 


device 

dependent (see 

below) 


first parameter 


Expression of TYPE REAL 


thru 1 


- 


second parameter 


Expression of TYPE REAL 


thru 1 


- 


third parameter 


Expression of TYPE REAL 


thru 1 


- 



Procedure Heading 

PROCEDURE SET_C0L0R_TABLE ( Index : INTEGER! 

Colpl : REAL! 

Co1p2 : REAL? 

Co1p3 : REAL ) 5 

Semantics 

SET_COLOR_TABLE is ignored by some devices (such as pen plotters) which do not allow their 
color table to be changed. The procedure INQ^WS (opcode 1073) tells whether the color table 
can be changed. 

The entry selector specifies the location in the color capability table that is to be redefined. For 
raster displays in Series 200 computers, 32 entries are available. 

The first parameter represents red intensity if the RGB model has been selected with the SET 
COLOR statement, or hue if the HSL model has been selected. 



The second parameter represents green intensity if the RGB model has been selected with the 
SET COLOR statement, or saturation if the HSL model has been selected. 

The third parameter represents blue intensity if the RGB model has been selected, or luminosity 
if the HSL model has been selected. 
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A more detailed description of the color models and the meaning of their parameters can be 
found under the procedure definition of SET_COLOR MODEL. 

The effect of redefinition of the color table on previously output primitives is device dependent. 
On most devices changing the color table will only affect future primitives; however, on the Model 
36C changing a color table entry with a color selector from through 15 will immediately change 
the color of primitives previously drawn with that entry. The procedure INQ_WS (opcode 1071) 
tells whether retroactive color change is supported. 

Monochromatic Displays 

All Series 200 computers except the Model 36C have a monochromatic internal CRT. Changing 
an entry in the table will not affect the current display; however, future changes to the display will 
use the new contents of the table. Device dependent polygons use the color table entry when 
performing dithering. 

The color that lines are drawn with (black or white) is determined from the perceived intensity of 
the color table entry. This is calculated as follows: 

if (red * 0.3 + green * 0.59 + blue * 0.11) > 0.1 
then 

color : = white 
else 
color : = black; 

The HP 98627A Display 

Changing an entry in the table will not affect the current display; however, future changes to the 
display will use the new contents of the table. Device dependent polygons use the color table 
entry when performing dithering. 

The color that lines are drawn with (one of the 8 non-dithered colors) is determined from the 
closest HSL value to the requested value. 

The Model 36C 

The first 16 locations (0.. 15) of the color table map directly to the hardware color map. Changing 
one of these color table locations will immediately change the display (assuming the color has 
been used). 

The next 16 locations (16..31) will not affect the current display; however, future changes to the 
display will use the new contents of the color table. 

Device dependent polygons drawn with color table locations 0..15 will be drawn in a solid color 
without using dithering. When drawn with color table location above 15 dithering will be used. 
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Note 

Since dithering on the HP 9836C uses the current color map values 
(i.e., color table locations 0..15) changing the first 16 color table 
locations will affect the dither pattern used. This leads to two major 
effects. First, changing the first 16 locations after a polygon was 
generated using dithering will change the dither pattern such that its 
averaged color no longer matches the color that it was generated with. 
Second, since the dither pattern is based on the first 16 colors, the first 
lb colors can be set to produce a dither pattern with minimum color 
changes between pixels within the pattern. The following example 
produces a continuous shaded polygon across the crt: 

$RANGE OFF* 
PROGRAM T! 

IMPORT d 41 _ f/pes, d 4 1 _ 1 i b , djfl_Poly5 

MAR I : INTEGER? 

Xuec.YMEC : ARRAY [ 1 . . 2 ] OF REAL 5 

Ouec : ARRAY [ 1 . . 2 ] OF Gshortint! 

c : real; 

BEGIN 

graphics_init; 

D I SPLAY-IN IT (3 ,0 , l ) i 
SET_ASPECT<511 ,389) ! 
S"ET_WIND0W<0 ,511 .0 ,389) 5 

FOR I := to 15 DO 

SET_C0L0R_TABLE( I ,1/15 ,1/15 ,1/15) ; { set up color map > 

SET_PGN_C0L0R ( 1G ) ! 
SET_PGN_STYLE ( 1G ) i 

YvecCil := 100! Yuec[2] := 150! OuecCl] :=2i 0uecC23 := 05 

FDR I := to 511 DO 

BEGIN 

X m e c [ 1 ] : = I ; X u e c [ 2 ] : = I i 

C : 1-1/5115 

SET_C0L0R_TABLE< 1G ,C ,C ,C) 5 { set polygon color } 

P0LYG0N_DEU_DEP(2 ,Xuec ,Yuec ,0uec ) 5 

end; 

END. 



The color that lines are drawn with (one of the first 16 non-dithered colors) is determined from the 
closest HSL value to the requested value. 
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Dithered Polygon Fills 

All the raster displays use a technique called dithering for filling device dependent polygons. The 
polygon is divided into 4 pixel by 4 pixel 'dither cells'. The colors that are placed in each pixel 
location inside the dither cells average to the current polygon color. The eye will average the 
pixels, and see the intended color. 

The 98627A has 3 memory planes thus, providing 8 non-dithered colors (white, red, green, blue, 
cyan, magenta, and black). Using dithering 4913 polygon colors may be generated. To obtain a 
polygon color of half-tone yellow (R = 0.5 G = 0.5 B = 0.0) the dither cell would contain 8 black 
pixels and 8 yellow pixels. 

On black and white displays, the largest r,g,b value of the current_polygon color is used to 
determine the dither pattern. 

On the HP 9836C the current values of the color map are used to determine the dither cell pixel 
colors. This leads to a very very large number of colors that the HP 9836C can produce when 
performing device dependent polygon fill. 

The Background Color 

Color index represents the background color. The ability to redefine this index is device- 
dependent. Many devices do not allow the redefinition of their background color. Whether a 
display device has the ability to redefine the background color can be inquired via a call to 
INQ_WS with opcode = 1072. All raster displays in the 200 Series are capable of redefining the 
background color. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SET_DISPLAY_LIM 



IMPORT: dglJib 



This procedure redefines the logical display limits of the graphics display. 

Syntax 



-><SETJ3TSPLAY_lIM)-*(rH ^^ 



Q 



max imum 
y value 



~*\J_J ^ variable name| \2_J ** 



Item 



Description/Default 



Range 

Restrictions 



minimum x value 
maximum x value 
minimum y value 
maximum y value 
error variable name 



Expression of TYPE REAL 
Expression of TYPE REAL 
Expression of TYPE REAL 
Expression of TYPE REAL 
Variable of TYPE INTEGER 



Procedure Heading 

PROCEDURE SET_DISPLAY_LIM ( 



>' m i n i X m a x > 
Y iii i n < Y in a x : R E A L > 
VAR Ierr : INTEGER ) 



Semantics 

The minimum x value is the distance in millimetres that the left side of the logical display limits is 
offset from the left side of the physical display limits. 

The maximum x value is the distance in millimetres that the right side of the logical display limits 
is offset from the left side of the physical display limits. 

The minimum y value is the distance in millimetres that the bottom of the logical display limits is 
offset from the bottom of the physical display limits. 

The maximum y value is the distance in millimetres that the top of the logical display limits is 
offset from the bottom of the physical display limits. 

The error variable will contain an integer indicating whether the limits were successfully set. 
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Value 




1 



Meaning 



The display limits were successfully set. 

The minimum x value was greater than or equal to the maximum x value and/or the 
minimum y value was greater than the maximum y value. 

The parameters specified were outside the physical display limits. 



2 
If the error variable is non-zero, the call was ignored. 

SET_DISPLAY_LIM allows an application program to specify the region of the display surface 
where the image will be displayed. The limits of this region are defined as the logical display limits. 
Upon initialization, the graphics system sets these limits equal to some portion of the specified 
physical device. This routine allows a programmer to set the plotting surface of a very large plotter 
equal to the size of an 8 1/2 x 11 inch paper, for example. 

The pairs (minimum x value, minimum y value) and (maximum x value, maximum y value) 
define the corner points of the new logical display limits in terms of millimetres offset from the 
origin of the physical display. The exact position of the physical display origin is device depen- 
dent. The specifics of various devices are covered later in this entry. 

This procedure causes a new virtual coordinate system to be defined. SET_DISPLAY_LIM 
calculates the new limits of the virtual coordinate system as a function of the current aspect ratio 
and the new limits of the logical display. This does not affect the limits of the viewport. Since it 
changes the size of the area onto which the viewport is mapped, it may scale the size of the image 
displayed. It will not distort the image; it can only make it smaller or larger. 

SET_DISPLAY_LIM should only be called while the graphics display is enabled. 

Neither the value of the starting position nor the location of the physical pen or beam is altered by 
this routine. Since this routine may redefine the viewing transformation, the starting position may 
be mapped to a different coordinate on the display surface. A call to MOVE or INT_MOVE should 
therefore be made after this call to update the value of the starting position and in so doing, place 
the physical pen or beam at a known location. 

If the logical display and logical locator are associated with the same physical device, a call to 
SET_DISPLAYJLIM will set the logical locator limits equal to the new limits of the virtual 
coordinate system. A call to SET_DISPLAY_LIM also sets the locator echo position to its default 
value, the center of the world coordinate system. 

Display Limits of Raster Devices 

The internal CRT's for Series 200 computers have the following limits: 

Wide High Wide High Resolution 

Computer mm mm points points Aspect points/mm 

Model 216 160 120 400 300 .75 2.5 

Model 217 230 175 512 390 .7617 2.226 

Model 220 (HP82913A) 210 158 400 300 .75 1.905 

Model 220 (HP82912A) 152 114 400 300 .75 2.632 

Model 226 120 88 400 300 .75 3.333 

Model 236 210 160 512 390 .7617 2.438 

Model 236 Color 217 163 512 390 .7617 2.39 

Model 237 312 234 1024 768 .75 3.282 
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The physical size of the HP 98627A display (needed by the SET_DISPLAY_L1M procedure) may 
be given to the graphics system by an escape function (OPCODE = 250). The physical limits 
assumed until the escape function is given are: 

CONTROL = 256 153.3mm wide and 116.7mm high. 

512 153.3mm wide and 116.7mm high. 

768 153.3mm wide and 142.2mm high. 

1024 153.3mm wide and 153.3mm high. 

1280 153.3mm wide and 153.3mm high. 

The default logical display surface of the graphics display device is the maximum physical limits of 
the screen. The physical origin is the lower left corner of the display. 

The view surface is always centered within the current logical display surface. The origin of a 
raster display is the lower-left dot. 

HPGL Plotter Display Limits 





Wide 


High 


Wide 


High 




Resolution 


Plotter 


mm 


mm 


points 


points 


Aspect 


points/mm 


9872 


400 


285 


16000 


11400 


.7125 


40.0 


7580 


809.5 


524.25 


32380 


20970 


.6476 


40.0 


7585 


1100 


891.75 


44000 


35670 


.8107 


40.0 


7586 


1182.8 


898.1 


47312 


35924 


.7593 


40.0 


7470 


257.5 


191.25 


10300 


7650 


.7427 


40.0 


7550 


411.25 


254.25 


16450 


10170 


.6182 


40.0 


7475 


416 


259.125 


16640 


10365 


.6229 


40.0 



The maximum physical limits of the graphics display for a HPGL device not listed above are 
determined by the default settings of PI and P2. The default settings of PI and P2 are the values 
they have after an HPGL 'IN' command. Refer to the specific device manual for additional 
details. 

The default logical display surface is set equal to the area defined by PI and P2 at the time 
DISPLAY_IN1T is invoked. The view-surface is always justified in the lower left corner of the 
current logical display surface (corner nearest the turret for the HP 7580 and HP 7585 plotters). 
The physical origin of the graphics display is at the lower left boundary of pen movement. 

Note 

If the paper is changed in an HP 7580, HP 7585 or HP 7586 plotter 
while the graphics display is initialized, it should be the same size of 
paper that was in the plotter when DISPLAYJNIT was called. If a 
different size of paper is required, the device should be terminated 
(DISPLAY_TERM) and re-initialized after the new paper has been 
placed in the plotter. 



Error Conditions 

The graphics system must be initialized and a display device enabled or this call will be ignored, 
an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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SET_ECHO_POS 



IMPORT: dglJib 



This procedure defines the locator echo position on the graphics display. 

Syntax 



-» <SET_ECH0 jos) -*^?)— ]^ oora \ n 



coordinate 



Item 


Description/Default 


Range 
Restrictions 


x coordinate 
y coordinate 


Expression of TYPE REAL 
Expression of TYPE REAL 


— 



Procedure Heading 

PROCEDURE SET_ECH0_P0S ( Wx , Wy : REAL ) i 

Semantics 

The x and y coordinate pair is the new echo position in world coordinates. 

When echoing on the display device, SET_ECHO_POS allows a programmer to define the 
position of the locator echo position. This is a point in the world coordinate system that represents 
the initial position of the locator. It is used with certain locator echoes on the graphics display. For 
example, it is used as the anchor point when a rubber band echo is performed. With this echo, the 
graphics cursor is initially turned on at the locator echo position. From that time on, the cursor 
reflects the position of the locator and a line extends from the locator echo position to the locator 
as it moves around the graphics display. To be used in echoing, the point must be displayable. 
Therefore, if the point specified is outside of the limits of the window the call is ignored. 

The locator echo position will only be used when AWAIT_LOCATOR is called with echo types 2 
through 8, e. g. , type 4 is a rubber band line echo. The locator echo position is only used when the 
locator echo is being sent to the graphics display device, and is not used when sampling the 
locator. 

SET_ECHO_POS should only be called while the graphics display and locator are initialized. If 
the point passed to SET_ECHO_POS is outside the current window limits, then the call to 
SET_ECHO_POS is ignored and no error is given. 

The default locator echo position is the center of the limits of the window. When the locator is 
initialized, the locator echo position is set to the default value. When a call is made which affects 
the viewing transformations for the graphics display surface or the logical locator limits, the 
locator echo position is set to the default value. The calls which cause this are SET_ASPECT, 
DISPLAY_INIT, SET_DISPLAY_LIM, LOCATORJNIT, SET_LOCATOR_LIM, SET_WIN- 
DOW, and SET_VIEWPORT. 
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Once the locator echo position is set, it retains this value until the next call to SET_ECHO_POS or 
until a call is made which resets it to the default value. 

Error Conditions 

The graphics system must be initialized, and a display device and a locator device must be 
enabled, or this call will be ignored, an ESCAPE ( -27) will be generated, and GRAPHICSER- 
ROR will return a non-zero value. 
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SET_LINE_STYLE 



IMPORT: dglJib 



This procedure sets the line style attribute. 

Syntax 



-> <SET^INE_STYLE) -.<(>-> f T ^ e g^ e \ -*f) 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


line style selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


Device 
Dependent 



Procedure Heading 



PROCEDURE SET_LINE_STYLE (Line-Style 



INTEGER) 5 



Semantics 

The line style selector is the line style to be used for lines, polylines, polygon edges, and text. 

Markers are not affected by line-style. Polygon interior line-style is selected with SET_PGN_LS. 

SET_LINE_STYLE sets the line style attribute for lines and text. The mapping between the value 
of the line style attribute and the line style selected is device dependent. If a line style attribute is 
requested that the device cannot perform exactly as requested, line style 1 will be performed. 

There are three types of line-styles: start adjusted, continuous, and vector adjusted: 

Start adjusted line-styles always start the cycle at the beginning of the vector. Thus if the current 
line-style starts with a pattern, each vector drawn will start with that pattern. Likewise, if the 
current line-style starts with a space and then a dot, each vector will be drawn starting with a space 
and then a dot. In this case if the vectors are short, they might not appear at all. 

Continuous line styles are generated such that the pattern will be started with the first vector 
drawn. Subsequent vectors will be continuations of the pattern. Thus, it may take several vectors 
to complete one cycle of the pattern. This type of line-style is useful for drawing smooth curves, 
but does not necessarily designate either endpoint of a vector. A side effect of this type of 
line-style is if a vector is small enough it might be composed only of the space between points or 
dashes in the line-style. In that case, the vector may not appear on the graphics display at all. 
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Vector adjusted line-styles treat each vector individually. Individual treatment guarantees that a 
solid component of the dash pattern will be generated at both ends of the vector. Thus, the 
endpoints of each vector will be clearly identifiable. This type of line-style is good for drawing 
rectangles. The integrity of the line-style will degenerate with very small vectors. Since some 
component of the dash pattern must appear at both ends of the vector, the entire vector for a 
short vector will often be drawn as solid. 

The following figure illustrates how one pattern would be displayed using each one of the 
different line-style types: 




r^i 



1 



START ADJUSTED 



CONTINUOUS 



<PP 



L^J 



VECTOR ADJUSTED 



LINESTYLE USED 

It should be apparent from the above discussion that drawing to the starting position will generate 
a point (the shortest possible line) only if the line-style is such that the pen is down (or the beam is 
on) at the start of that vector. Likewise, whole vectors may not appear on the graphics display 
surface if the line-style is such that the vector is smaller than the blank space in the line-style. The 
device handlers section of this document details the line-styles available for each device. 



Note 

When using continuous line styles, complement and erase drawing 
modes (available on some raster displays e.g., HP 9826) may not 
completely remove lines previously drawn. This happens since the 
line style pattern may not be in sync with the first line when the second 
line is drawn. By setting the line-style to solid when using complement 
and erase drawing modes the application program can insure that the 
line is completely removed. 
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Raster Line Styles 

Eight pre-defined line-styles are supported on the graphics display. All of the line-styles may be 
classified as being "continuous": 



8 

—> 

6 

5 

4 

3 

2 

1 

Raster Line Styles 



Plotter Line Styles 

The following table describes the line styles available on the supported plotters. 



Device 


Number of continuous 
line-styles 


Number of vector adjusted 
line-styles 


9872 
7580 
7585 
7470 
Other 


7 
7 
7 
7 
7 




6 
6 





7 

B 

5 

4 

3 

2 

1 

HP 9872 and 7470 Line Styles 
(all are continuous) 



D 



CONTINUOUS 



314 Graphics Procedure Reference 



13 

12 

1 1 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



HP 7580, 7585 and 7586 Line Styles 



■□ ;l 



w 



CONTINUOUS 



m± 



VECTOR ADJUSTED 



If the line style specified is not supported by the graphics display, the call is completed with 
L1NE_STYLE = 1 and no error is reported. 



Error Conditions 

The graphics system must be enabled and a display device must be enabled or this call will be 
ignored and GRAPH1CSERROR will return a non-zero value. 
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SET_LOCATOR_LIM 



IMPORT: dgLlib 



This procedure redefines the logical locator limits of the graphics locator. 

Syntax 



-> (sET_lOCATOR^IM) -»(r H f ^ 



Q 



ximum /^~N minimum /^""N 
value | ^J_J | y value | \^_J "\ 



max imum 
y value 



/TV-J error I »^T^ » 

VV/ "variable name| ^\Ls 



Item 



Description/Default 



Range 
Restrictions 



minimum x value 
maximum x value 
maximum y value 
minimum y value 
error variable name 



Expression of TYPE REAL 
Expression of TYPE REAL 
Expression of TYPE REAL 
Expression of TYPE REAL 
Variable of TYPE INTEGER 



Procedure Heading 

PROCEDURE SET_L0CAT0R_LIM ( 



X it) i n t X in a x » 
Ywin t Ymax : REAL » 
MAR I e r r 



INTEGER ) ! 



Semantics 

The minimum x value is the distance in millimetres that the left side of the logical locator limits is 
offset from the left side of the physical locator limits. 

The maximum x value is the distance in millimetres that the right side of the logical locator limits 
is offset from the left side of the physical locator limits. 

The minimum y value is the distance in millimetres that the bottom of the logical locator limits is 
offset from the bottom of the physical locator limits. 

The maximum y value is the distance in millimetres that the top of the logical locator limits is 
offset from the bottom of the physical locator limits. 



The error variable will contain an integer indicating whether the limits were successfully set. 
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Value 



Meaning 



The display limits were successfully set. 

1 The minimum x value was greater than or equal to the maximum x value and/or the 
minimum y value was greater than the maximum y value. 

2 The parameters specified were outside the physical display limits. 

3 Attempt to explicitly define locator limits on a device which is both the logical locator 
and the logical display. The logical display limits are used when a device is shared for 
both purposes, and they cannot be redefined with this call. 

If the error variable is non-zero, the call was ignored. 

SETLLOCATOR_LIM allows an application program to specify the portion of the physical 
locator device that should be used to perform locator functions. When the logical locator device is 
enabled (via LOCATOR_INIT) the logical device limits are set to a device dependent portion of 
the physical locator device. With a call to this routine the user can set the logical locator limits by 
specifying a new area within the physical locator limits. 

The pairs (minimum x value, minimum y value) and (maximum x value, maximum y value) 
define the corner points of the new logical locator limits in terms of millimetres offset from the 
origin of the physical locator. The exact position of the physical locator origin is device depen- 
dent. Specific origins are covered later in this entry. 

If a logical locator and a logical display are associated with the same physical device, then the 
logical locator limits must be the same as the logical view surface limits. Specifically, the effects of 
the association with the same physical device are as follows: 

• The logical locator limits are initialized to the same values as the virtual coordinate system. 

• Any call which redefines the virtual coordinate system limits will also redefine the logical 
locator limits. 

• The logical locator limits can not be defined by a call to SET_LOCATORJLIM. 

By changing the logical locator limits any portion of the graphics locator can be addressed, with 
the restrictions stated above. 

The logical locator limits always map directly to the view surface, therefore, distortion may result 
in the mapping between the logical locator and the display when the logical locator limits and the 
view surface have different aspect ratios. If the distortion is not desired it can be avoided by 
assuring that the logical locator limits maintain the same aspect ratio as that of the view surface. 

SET_LOCATOR_LIM should only be called while the graphics locator is enabled. SET_LOCA- 
TOR_LIM sets the locator echo position to the default value (see SET_ECHO_POS). 
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Relative Locator Limits (Knob or Mouse) 

The knob may be used as a locator on Series 200 computers. The default characteristics of the 
knob on various Series 200 computers is listed in the table below. 





Wide 


High 


Wide 


High 




Resolution 


Computer 


mm 


mm 


points 


points 


Aspect 


points/mm 


Model 216 


160 


120 


400 


300 


.75 


2.5 


Model 217 


230 


175 


512 


390 


.7617 


2.226 


Model 220 (HP82913A) 


210 


158 


400 


300 


.75 


1.905 


Model 220 (HP82912A) 


152 


114 


400 


300 


.75 


2.632 


Model 226 


120 


88 


400 


300 


.75 


3.333 


Model 236 


210 


160 


512 


390 


.7617 


2.438 


Model 236 Color 


217 


163 


512 


390 


.7617 


2.39 


Model 237 


312 


234 


1024 


768 


.75 


3.282 



The knob uses the current display limits as its locator limits for locator echoes 2 though 8. For all 
other echoes the above limits are used. An example of when the two limits may differ follows: 

The knob locator is initialized on an HP 9826. The graphics display is an HP 98627A color 
output card. The resolution of the locator is through 399 in x dimension, and through 
299 in y dimension. The resolution of the display is through 511 in x dimension, and 
through 389 in y dimension. When awaitJocator is used with echo 4, the locator will 
effectively have the HP 98627A resolution for the duration of the awaitJocator call. 
However if echo 1 is used with awaitJocator, the cursor will appear on the HP 9826 and the 
locator has a resolution of x 399 and x 299. Note that all conversion routines, and 
inquiries will use the HP 9826 limits. 

The physical origin of the locator device is the lower left corner of the display. 

Absolute Locator Limits (HPGL Plotter or Graphics Tablet) 

HPGL plotter and graphics tablets can be used as locators. The default characteristics of some 
HPGL devices are listed below. 



Plotter/ 


Wide 


High 


Wide 


High 




Resolution 


Tablet 


mm 


mm 


points 


points 


Aspect 


points/mm 


9872 


400 


285 


16000 


11400 


.7125 


40.0 


7580 


809.5 


524.25 


32380 


20970 


.6476 


40.0 


7585 


1100 


891.75 


44000 


35670 


.8107 


40.0 


7586 


1182.8 


898.1 


47312 


35924 


.7593 


40.0 


7470 


257.5 


191.25 


10300 


7650 


.7427 


40.0 


7550 


411.25 


254.25 


16450 


10170 


.6182 


40.0 


7475 


416 


259.125 


16640 


10365 


.6229 


40.0 


9111 


300.8 


217.6 


12032 


8704 


.7234 


40.0 



The maximum physical limits of the locator for a HPGL device not listed above are determined by 
the default settings of PI and P2. The default settings of PI and P2 are the values they have after 
an HPGL 'IN' command. Refer to the specific device manual for additional details. 

The default logical display surface is set equal to the area defined by PI and P2 at the time 
LOCATORJNIT is invoked. 



98615-90035, rev: 3/85 
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Note 

If the paper is changed in an HP 7580, HP 7585 or HP 7586 plotter 
while the graphics display is initialized, it should be the same size of 
paper that was in the plotter when DISPLAYJNIT was called. If a 
different size of paper is required, the device should be terminated 
(DISPLAY_TERM) and re-initialized after the new paper has been 
placed in the plotter. 

Error Conditions 

The graphics system must be initialized and a display device enabled or this call will be ignored, 
an ESCAPE ( - 27) will be generated, and GRAPHICSERROR will return a non-zero value. 
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SET_LINE_WIDTH 

IMPORT: dgLlib 

This procedure sets the line-width attribute. The number of line-widths possible is device 
dependent. 

Syntax 

^SET^INEJ<l"H7^ )-<r H~ 1 ^Lctgn h 



Item 


Description/Default 


Range 
Restrictions 


line-width selector 


Expression of TYPE INTEGER 


MININT thru MAXINT 



Procedure Headings 

PROCEDURE SET_LINE_WIDTH ( Linewidth : INTEGER )i 

Semantics 

SET_LINE_WIDTH sets the line-width attribute for lines, polylines and text. The line-width 
attribute does not affect markers which are defined to be always output with the thinnest 
line-width supported on the device. All devices support at least one line-width. The range of 
line-widths is device dependent but line-width 1 is always the thinnest line-width supported. For 
devices that support multiple line-widths, the line-width increases as line-width does until the 
device supported maximum is reached. For example, line-width - 1 specifies the thinnest, 
line-width = 2 specifies the next wider line-width, etc. 

If line-width is greater than the number of line-widths supported by the graphics display or 
line-width is less than 1, then the line-width will be set to the thinnest available width (line-width 
= 1 ). All subsequent lines and text will then be drawn with the thinnest available line-width. A call 
to INQ_WS with OPCODE equal to 1063 to inquire the value of the line-width will then return a 
1. 

The initial line-width is the thinnest width supported by the device (line-width = 1). 



Note 

All current devices support a single line-width. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call is 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SET_PGISLCOLOR 



IMPORT: dglJib 
dgLpoly 



This procedure selects the polygon interior color attribute for subsequently generated polygons 
by providing a selector for the color table. 

Syntax 



— »•( SETJ GN_C0L0R )—»(7)~** 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


color selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


Device 
dependent. 



Procedure Heading 

PROCEDURE SET_PGN. 



COLOR ( C index 



INTEGER ) ! 



Semantics 

The color selector is an index into the color table. The contents of the color table are then used to 
specify the color when primitives are drawn. On some devices (HPGL plotters), the color selector 
maps directly to a pen number for the device. On the HP 9836C, the entries in the color table can 
be modified with SET_COLOR_TABLE. The color actually used depends on the value in a 
device dependent color table. 

At device initialization a default color table is created by the graphics system. The size and 
contents of the table are device dependent. At least one entry exists for all devices. A call to 
1NQ_WS with OPCODE equal to 1053 will return the number of colors available on a given 
graphics device. Some devices allow the color table to be modified with SET_TABLE. 

The default value of the color attribute is 1. If the value of the color selector is not supported on 
the graphics display, the color attribute will be set to 1. 

A color selector of has special effects depending on the graphics display used. For raster 
devices, a color selector of means to draw in the background color. For most plotters, it puts the 
pen away. 

Dithering 

If the device is not capable of reproducing a color in the color table, the closest color which the 
device is capable of reproducing is used instead. For polygon fill (in a device dependent mode) 
this may involve dithering. For example, the HP 98627A color output interface card is capable of 
a large selection of polygon fill colors, but only 8 line colors. Thus, the fill color could match the 
selected color much more closely than the line color used to outline the polygon. See SET_ 
COLOR-TABLE for details on how colors are matched to the devices. 
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Default Raster Color Map 

The following table shows the default (initial) color table for the black and white displays 
9816 / HP 9920 / HP 9826 / HP 9836 ): 



HP 



Index # 


Hue 


Saturation 


Luminosity 














1 








1.0000 


2 








0.9375 


3 








0.8750 


4 








0.8125 


5 








0.7500 


6 








0.6875 


7 








0.6250 


8 








0.5625 


9 








0.5000 


10 








0.4375 


11 








0.3750 


12 








0.3125 


13 








0.2500 


14 








0.1875 


15 








0.1250 


16 








0.0625 



Colors 17 though 31 are set to white. 

The following table shows the default (initial) color table for the color displays ( HP 9836C and 
HP 9862 7 A ): 



Index # 


Color name 


Red 


Green 


Blue 





Black 


0.000000 


0.000000 


0.000000 


1 


White 


1.000000 


1.000000 


1.000000 


2 


Red 


1.000000 


0.000000 


0.000000 


3 


Yellow 


1.000000 


1.000000 


0.000000 


4 


Green 


0.000000 


1.000000 


0.000000 


5 


Cyan 


0.000000 


1.000000 


1.000000 


6 


Blue 


0.000000 


0.000000 


1.000000 


7 


Magenta 


1.000000 


0.000000 


1.000000 


8 


Black 


0.000000 


0.000000 


0.000000 


9 


Olive green 


0.800000 


0.733333 


0.200000 


10 


Aqua 


0.200000 


0.400000 


0.466667 


11 


Royal blue 


0.533333 


0.400000 


0.666667 


12 


Violet 


0.800000 


0.266667 


0.400000 


13 


Brick red 


1.000000 


0.400000 


0.200000 


14 


Burnt orange 


1.000000 


0.466667 


0.000000 


15 


Grey brown 


0.866667 


0.533333 


0.266667 



Colors 9 though 15 are a graphic designers idea of colors for business graphics. Color table 
entries not shown above are set to white. 
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Raster Drawing Modes 

Raster drawing modes have no effect on polygon fill color. 

Plotters 

A Color Selector of selects no pens (the current pen is put away). The supported range of Color 
Selectors for each supported plotter is: 

• 9872A - thru 4 

• 9872B - thru 4 

• 9872C/S/T - thru 8 

• 7550A/7580A/7585A/7586B - thru 8 

• 7470A - thru 2 

• 7475 - thru 6 

Error Conditions 

The graphics system must be initialized and a display must be enabled or this call will be ignored, 
an ESCAPE ( -27) will be generated, and GRAPHICSERROR returns a non-zero value. 
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SET_PGN_LS 



IMPORT: dgLlib 
dgLpoly 



This procedure selects the polygon interior line-style attribute for subsequently generated 
polygons by providing a selector for the device dependent line-style table. 

Syntax 



-H >ETJGN^S) -»{T H "eLct^r 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


line-style selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


Device 
dependent 



Procedure Heading 

PROCEDURE SET_PGN_LS 



( L i n d e x 



INTEGER ) i 



Semantics 

The line style selector is the line style to be used for polygon interiors. 

Line-styles for other primitives are selected using SET_LINE_STYLE. 

The mapping between the value of the line style attribute and the line style selected is device 
dependent. If a line style attribute is requested that the device cannot perform exactly as 
requested, line style 1 will be performed. 

There are three types of line-styles - start adjusted, continuous, and vector adjusted: 

Start adjusted line-styles always start the cycle at the beginning of the vector. Thus if the current 
line-style starts with a pattern, each vector drawn will start with that pattern. Likewise, if the 
current line-style starts with a space and then a dot, each vector will be drawn starting with a space 
and then a dot. In this case if the vectors are short, they might not appear at all. 

Continuous line styles are generated such that the pattern will be started with the first vector 
drawn. Subsequent vectors will be continuations of the pattern. Thus, it may take several vectors 
to complete one cycle of the pattern. This type of line-style is useful for drawing smooth curves, 
but does not necessarily designate either endpoint of a vector. A side effect of this type of 
line-style is if a vector is small enough it might be composed only of the space between points or 
dashes in the line-style. In that case, the vector may not appear on the graphics display at all. 
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Vector adjusted line-styles treat each vector individually. Individual treatment guarantees that a 
solid component of the dash pattern will be generated at both ends of the vector. Thus, the 
endpoints of each vector will be clearly identifiable. This type of line-style is good for drawing 
rectangles. The integrity of the line-style will degenerate with very small vectors. Since some 
component of the dash pattern must appear at both ends of the vector, the entire vector for a 
short vector will often be drawn as solid. 

The following figure illustrates how one pattern would be displayed using each one of the 
different line-style types: 




rrwii 



i 



START ADJUSTED 



CONTINUOUS 



Mil ml 

VECTOR ADJUSTED 



It should be apparent from the above discussion that drawing to the starting position will generate 
a point (the shortest possible line) only if the line-style is such that the pen is down (or the beam is 
on) at the start of that vector. Likewise, whole vectors may not appear on the graphics display 
surface if the line-style is such that the vector is smaller than the blank space in the line-style. The 
device handlers section of this document details the line-styles available for each device. 



Note 

When using continuous line styles, complement and erase drawing 
modes (available on some raster displays e.g., HP 9826) may not 
completely remove lines previously drawn. This happens since the 
line style pattern may not be in sync with the first line when the second 
line is drawn. By setting the line style to solid when using complement 
and erase drawing modes the application program can insure that the 
line is completely removed. 
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Raster Line Styles 

Eight pre-defined line-styles are supported on the graphics display. All of the line-styles may be 
classified as being "continuous": 

8 

c 

B 

5 

4 

■ 3 

•p _________________ 

_ 

1 

Raster Line Styles 

Plotter Line Styles 

The following table describes the line styles available on the supported plotters. 





Number of continuous 


Number of vector adjusted 


Device 


line-styles 


line-styles 


9872 


7 





7470 


7 





7475 


7 





7550 


7 


6 


7580 


7 


6 


7585 


7 


6 


7586 


7 


6 


Other 


7 






7 

G 

5 

4 

3 

2 

1 

HP 9872, 7470 and 7475 Line Styles 
(all are continuous) 



[p__r-j] 



Ifl 



CONTINUOUS 
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13 ■ 

12 — 

1 1 — 

10 — 

9 - 

8 - 

7 

6 — 
5 — 
•4 — 
3 — 
2 — 
1 — 



HP 7550, 7580, 7585 and 7586 Line Styles 



ii — ii 



VECTOR ADJUSTED 



r^i 



1 



CONTINUOUS 



If the line style specified is not supported by the graphics display, the call is completed with 
LINE_STYLE = 1 and no error is reported. 

The graphics system must be enabled and a display device must be enabled or this call will be 
ignored and GRAPHICSERROR will return a non-zero value. 

Error conditions: 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return an non-zero 
value. 
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SET_PGN_STYLE 



IMPORT: dglJib 
dgLpoly 



This procedure selects the polygon style attribute for subsequently generated polygons by 
providing a selector for the polygon style table. 

Syntax 



-» ( SETJGN_STYlI> -<(>-* p3 y e 9 °e n ct S V 1 



Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


polygon style 
selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


Device 
dependent 



Procedure Heading 

PROCEDURE SET_PGN_STYLE ( Pindex : INTEGER )i 

Semantics 

Polygon styles can vary in polygon interior density, polygon interior orientation and polygon 
edge display. See SET_PGN_TABLE for details on default styles, and how the polygon style 
table may be changed. 

Error Conditions 

The graphics system must be initialized and a display device must be enabled or this call will be 
ignored and GRAPHICSERROR will return an non-zero value. 
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SET_PGN TABLE 



IMPORT: dgLlib 
dgLpoly 



This procedure defines a polygon style attribute, i.e. an entry in a polygon style table. 

Syntax 



SETJGN_TABLE~y -»(?)— » j 3^^ 




Item 


Description/Default 


Range 
Restrictions 


Recommended 
Range 


entry selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


Device 
dependent 


fill density 


Expression of TYPE REAL 


MININT thru 
MAXINT 


-1 thru 1 


fill orientation 


Expression of TYPE REAL 


MININT thru 
MAXINT 


-90 thru 90 


edge selector 


Expression of TYPE INTEGER 


MININT thru 
MAXINT 


■- 



Procedure Heading 

PROCEDURE SET_PGN_TABLF ( Index 

D e n s t y 
Orient 
Ed 3e 



integer; 

REAL ! 

real ; 

INTEGER ) 5 



Semantics 

This routine defines the attribute of polygon style, i. e. it specifies an entry in a polygon style table. 
This entry contains information that specifies polygon interior density, polygon interior orienta- 
tion, polygon edge display, and device-independence of polygon display. 

The entry selector specifies the entry in the polygon style table that is to be redefined. 

The fill density determines the density of the polygon interior fill. The magnitude of this value is 
the ratio of filled area to non-filled area. Zero means the polygon interior is not filled. One 
represents a fully filled polygon interior. All non-zero values specify the density of continuous 
lines used to fill the interior. 
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Positive density values request parallel fill lines in one direction only. Negative values are used to 
specify crosshatching. For a given density, the distance between two adjacent parallel lines is 
greater with cross hatching than in the case of pure parallel filling. Calculations for fill density are 
based on the thinnest line possible on the device and on continuous line-style. 

The distance between fill lines - hence density - does not change with a change of scale caused 
by a viewing transformation. If the interior line-style is not continuous, the actual fill density may 
not match that found in the polygon style table. 

The fill orientation represents the angle (in degrees) between the lines used for filling the 
polygon and the horizontal axis of the display device. The interpretation of fill orientation is 
device-dependent. On devices that require software emulation of polygon styles, the angle 
specified will be adhered to as closely as possible, within the line-drawing capabilities of the 
device. For hardware generated polygon styles, the angle specified will be adhered to as closely 
as is possible given the hardware simulation of the requested density. If crosshatching is specified, 
the fill orientation specifies the angle of orientation of the first set of lines in the crosshatching, and 
the second set of lines is always perpendicular to this. 

The value of the edge selector determines whether the edge of the polygon is displayed. If the 
edge selector is 0, the edges will not be displayed. If the edge selector is 1, display of individual 
edge segments depends on the operation selector in the call that draws the polygon set, 
POLYGON, INT_POLYGON, POLYGON_DEV_DEP, or INT_POLYGON_DD. 

If polygon edges are displayed, they adhere to the current line attributes of color, line-style, and 
line-width, in effect at the time of polygon display. 

A device-dependent number of polygon styles are available. All devices support at least 16 
entries in the polygon table. The polygon styles defined in the default tables are defined to exploit 
the hardware capabilities of the devices they are defined for. 

Polygon interiors can be generated in either a device-dependent or device-independent fashion, 
by calling POLYGON_DEV_DEP or POLYGON respectively. 

Polygons generated in a device-dependent fashion will utilize the available hardware polygon 
generation capabilities of the device to increase the speed and efficiency of polygon generation. 
The output may vary depending on the device. Devices that have no hardware polygon genera- 
tion capabilities will only do a minimal representation of the polygon if a device-dependent 
representation of the polygon is requested. If an edge is not requested, an outline of the 
non-clipped boundaries of the polygon interior will be drawn in the current polygon interior color 
and polygon interior line-style if the density of the polygon interior was not zero. 

Polygons generated in a device-independent fashion will adhere strictly to the polygon style 
specification. The polygon interior generated would look similar when generated on different 
devices for a given polygon style specification. However, on raster devices rasterization of the fill 
lines may leave empty pixels when solid fill is requested with an orientation that is not or 90 
degrees. Available hardware would only be used where the polygon style could be generated 
exactly as specified. 
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The number of entries in the polygon style table and the default contents of the table are device 
dependent. However, all devices support the following polygon style table: 



Entry 


Density 


Angle 


Edge 


1 


0.0 


0.0 


1 


2 


0.125 


90.0 


1 


3 


0.125 


0.0 


1 


4 


-0.125 


0.0 


1 


5 


0.125 


45.0 


1 


6 


0. 125 


-45.0 


1 


7 


-0.125 


45.0 


1 


8 


0.25 


90.0 


1 


9 


0.25 


0.0 


1 


10 


-0.25 


0.0 


1 


11 


0.25 


45.0 


1 


12 


0.25 


-45.0 


1 


13 


-0.25 


45.0 


1 


14 


-0.5 


0.0 


1 


15 


1.0 


0.0 





16 


1.0 


0.0 


1 



Error Conditions 

The graphics system must be initialized, a display must be enabled, and the parameters must be 
within the specified limits or this call will be ignored, an ESCAPE ( -27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 



IMPORT: dgLlib 



This procedure specifies the text direction. 



Syntax 
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SET_TEXT_ROT 



^ (set.text-rot hj) ^ jg [ *cy* \ s h j>-^ 



Item 


Description/Default 


Range 
Restrictions 


x-axis offset 
y-axis offset 


Expression of TYPE REAL 
Expression of TYPE REAL 


— 



Procedure Heading 

PROCEDURE SET_TEXT_ROT ( Dx, Dv 



REAL ) 5 



Semantics 

The x axis offset and the y axis offset specify the world coordinate components of the text 
direction vector relative to the world coordinate origin. These components cannot both be zero. 

This procedure specifies the direction in which graphics text characters are output. The default 
value (X-axis offset = 1.0; Y-axis offset = 0.0) for the text direction vector is such that characters 
are drawn in a horizontal direction left to right. The default value is set during GRAPHICS_INIT 
and DISPLAYJNIT. With X-axis offset = - 1.0 and Y-axis offset = 1.0 a 135 degree rotation 
from the horizontal (in a counter clockwise direction) may be obtained. 




X Rx i s Offset 
1 .0 



Text Rotation Angle 



Error Conditions 

The graphics system must be initialized, a display must be enabled, and the parameters must be 
within the specified limits or this call will be ignored, an ESCAPE ( -27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 



332 Graphics Procedure Reference 



SET TIMING 



IMPORT: dgUib 



This procedure selects the timing mode for graphics output. 

Syntax 



— ■ { SETJTIMING ) -»(?)— | t ^^g 



Item 


Description/Default 


Range 
Restrictions 


timing mode selector 


Expression of TYPE INTEGER 


Oorl 



Procedure Heading 

PROCEDURE SET_TIMING ( Opcode : INTEGER )! 

Semantics 

The timing mode selector determines the timing mode used. 



Value 



Meaning 




1 



Immediate visibility mode 
System buffering mode 



Graphics library timing modes are provided to control graphics throughput and picture update 
timing. Picture update timing refers to the immediacy of visual changes to the graphics display 
surface. Regardless of the timing mode used, the same final picture is sent to the graphics display. 
SET_TIMING only controls when a picture appears on the graphics display, not what appears. 

The graphics system supports two timing modes: 

• Immediate visibility Requested picture changes will be sent to the graphics display device 
before control is returned to the calling program. Due to operating system delays there may 
be a delay before the picture changes are visible on the graphics display device. 

• System buffering Requested picture changes will be buffered by the graphics system. This 
means that the graphics output will not be immediately sent to the display device. This allows 
the graphics library to send several graphics commands to the graphics display device in one 
data transfer, therefore, reducing the number of transfers. System buffering is the initial 
timing mode. 



The following routines implicitly make the picture current: 



AWAIT_LOCATOR 
LOCATORJNIT 



DISPLAY_TERM 
SAMPLE_LOCATOR 



INPUT.ESC 
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The immediate visibility mode is less efficient than the system buffering mode. It should only be 
used in those applications that require picture changes to take place as soon as they are defined, 
even if the finished picture takes longer to create. When changing the timing mode to immediate 
visibility the picture is made current. 

An alternative to immediate visibility that will solve many application needs is the use of system 
buffering together with the MAKE_PIC_CURRENT procedure. With this method, an application 
program places graphics commands into the output buffer and flushes the buffer (see MAKE_ 
PIC_CURRENT) only at times when the picture must be fully displayed. 

A call to MAKE_PIC_CURRENT can be made at any time within an application program to insure 
that the image is fully defined. MAKE_P1C_CURRENT flushes the output buffer but does not 
modify the timing mode. 

Before performing any non-graphics system input or output (to a graphics system device) such as 
a PASCAL read or write, the output buffer must be empty. If the buffer is not flushed (via 
immediate visibility of MAKE_PICLCURRENT) prior to non-graphics system I/O, the resulting 
image may contain some 'garbage' such as escape functions or invalid graphics data. 



Note 

Although SET_TIMING can be used with all display devices, only 
HPGL plotters buffer commands. 

Error Conditions 

The graphics system must be initialized and all parameters must be in range or this call will be 
ignored, an ESCAPE ( -27) will be generated, and GRAPHICSERROR will return a non-zero 
value. 
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SET_VIEWPORT 



IMPORT: dgLlib 



This procedure sets the boundaries of the viewport in the virtual coordinate system. 

Syntax 



— »(sET_VIEWPORf)— *^T)— - 



min imum 
x value 



max ] 
x va 1 



imum 1 _ ^ ~~ \ .. minimum f \ 
alue | ^J_J "* 1 y value | ^Jy "^ 



Q 



max i mum 
y value 



Item 


Description/Default 


Range 
Restrictions 


minimum x value 


Expression of TYPE REAL 


0.0-1.0 


maximum x value 


Expression of TYPE REAL 


0.0-1.0 


minimum y value 


Expression of TYPE REAL 


0.0-1.0 


maximum y value 


Expression of TYPE REAL 


0.0-1.0 



Procedure Heading 

PROCEDURE SET_UIEWPGRT ( Uxmin* K>xman , 

Uymin > Myfiiax : REAL ) 5 

Semantics 

The minimum x value is the minimum boundary in the X-direction expressed in virtual coordin- 
ates. 

The maximum x value is the maximum boundary in the X-direction expressed in virtual 
coordinates. 

The minimum y value is the minimum boundary in the Y-direction expressed in virtual coordin- 
ates. 

The maximum y value is the maximum boundary in the Y-direction expressed in virtual 
coordinates. 

SET_V1EWP0RT sets the limits of the viewport in the virtual coordinate system. The viewport 
must be within the limits of the virtual coordinate system; otherwise the call will be ignored. 

The initial viewport is set up with the minimum x and y values set to 0.0 and the maximum X and 
Y values set to 1.0. 
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The initial viewport is set by GRAPHICS_INIT and SET_ASPECT. This initial viewport is 
mapped onto the maximum visible square within the logical display limits. This area is called the 
view surface. The placement of the view surface within the logical display limits is dependent 
upon the device being used. It is generally centered on CRT displays and is placed in the lower 
left-hand corner of plotters. 

By changing the limits of the viewport, an application program can display an image in several 
different positions on the same graphics display device. A program can make a call to SET_ 
VIEWPORT anytime while the graphics system is initialized. 

The starting position is not altered by this call. Since this call redefines the viewing transformation, 
the starting position may no longer represent a known world coordinate position. A call to MOVE 
or INT_MOVE should be made after this call to update the starting position. 

Error Conditions 

The graphics system must be initialized, all parameters must be within the specified range, the 
minimum X value must be less than the maximum X value and the minimum Y value must be less 
than the maximum Y value and all parameters must be within the current virtual coordinate 
system boundary, or this call will be ignored, an ESCAPE (-27) will be generated, and 
GRAPHICSERROR will return a non-zero value.. 
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SET_WINDOW 



IMPORT: dglJib 



This procedure defines the boundaries of the window. 

Syntax 



— »( SET_WINDOW ~y~ »»{?)-»• left -*{/)~ 



3-~G^_ 





Item 


Description/Default 


Range 
Restrictions 


left 




Expression of TYPE REAL 


See below 


right 




Expression of TYPE REAL 


See below 


bottom 




Expression of TYPE REAL 


See below 


top 




Expression of TYPE REAL 


See below 



Procedure Heading 

PROCEDURE SET_WINDOW 



W x m 1 n » W x m a x 
W v m in* W v m a x 



REAL ) ! 



Semantics 

The left is the minimum boundary in the X-direction expressed in world coordinates, (i.e., the left 
window border). Must not equal maximum x value. 

The right is the maximum boundary in the X-direction expressed in world coordinates, (i.e. the 
right window border). Must not equal minimum x value. 

The bottom is the minimum boundary in the Y-direction expressed in world coordinates, (i.e. the 
bottom window border). Must not equal maximum y value. 

The top is the maximum boundary in the Y-direction expressed in world coordinates, (i.e. the top 
window border). Must not equal minimum y value. 

SET_WINDOW defines the limits of the window. All positional information sent to and received 
from the graphics system is specified in world coordinate units. This allows the application 
program to specify coordinates in units related to the application. 

If the top value is less than the bottom value, the Y-axis will be inverted. If the right value is less 
than the left boundary, the X-axis will be inverted. 
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The window is linearly mapped onto the viewport specified by SET_VIEWPORT. This is done by 
mapping the left boundary to the minimum X-viewport boundary, the right boundary to the 
maximum X-viewport boundary, the bottom boundary to the minimum Y-viewport boundary, 
and the top boundary to the maximum Y-viewport boundary. If distortion of the graphics image is 
not desired, the aspect ratio of the window boundaries should be equal to the aspect ratio of the 
viewport. 

The default window limits range from - 1 . to 1 . on both the X and Y axis. GRAPHICSJNIT is 
the only procedure which sets the window to its default limits. 

The starting position is not altered by this call. Since this call redefines the viewing transformation, 
the starting position may no longer represent a known world coordinate position. A call to MOVE 
or INT_MOVE should therefore be made after this call to update the starting position. 

SET_WINDOW can be called at anytime while the graphics system is initialized. 

Error Conditions 

The graphics system must be initialized, the minimum value for either axis must not equal the 
maximum value for that axis or this call will be ignored, an ESCAPE ( - 27) will be generated, and 
GRAPHICSERROR will return a non-zero value. 
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Module Dependency Table 

The Module Dependency Table shows which modules are imported by the standard LIBRARY, 10, 
GRAPHICS, and SEGMENTER modules. 



Module to 
Be Imported 



Module(s) Upon 
Which It Depends 



LIBRARY Modules: 
RND 
HPM 
UIO 
LOCKMODULE 



SYSGLOBALS 



SYSGLOBALS 



10 Modules: 

IODECLARATIONS 

IOCOMASM 

GENERAL_0 

GENERAL_1 

GENERAL_2 

GENERAL_3 

GENERAL_4 

HPIB_0 

HPIB_1 

HPIB_2 

HPIB_3 

SERIAL_0 

SERIAL.3 



SYSGLOBALS 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 
SYSGLOBALS, 



IODECLARATIONS 
IODECLARATIONS 
IODECLARATIONS 

IODECLARATIONS, GENERAL_1, HPIB_1 
IODECLARATIONS 



IODECLARATIONS, 
IODECLARATIONS 
IODECLARATIONS 
IODECLARATIONS, 
IODECLARATIONS, 
IODECLARATIONS 
IODECLARATIONS 



HPIB_1 



HPIB_0, HPIB_1 
GENERAL_1, HPIB_0, HPIB_1 



GRAPHICS (and FGRAPHICS) Modules: 

DGLJJB ASM, IODECLARATIONS, SYSGLOBALS, MINI, ISR, MISC, FS, 

SYSDEVS, and all GRAPHICS modules except DGL_INQ and 

DGL_POLY 



DGLPOLY 
DGLJNQ 



SYSGLOBALS, SYSDEVS, and all GRAPHICS modules except 
DGLJNQ 



ASM, SYSGLOBALS, A804XDVR, DGL_TYPES, DGL_VARS 
DGL_GEN, GLE_TYPES, GLE_GEN 

SEGMENTER Modules: 

SEGMENTER LOADER, LDR, SYSGLOBALS, MISC 



340 Graphics Procedure Reference 



Subject Index 



a 

Acceleration, pen 86 

Anisotropic scaling 10 

Aspect ratio 11,34,60,98 

Attributes, color 99 

AWA1T.LOCATOR procedure 94,220 

Axes: 

Description of 20,62 

Labelling 25 

Logarithmic 64 

AxesGrid program 62,142 

b 

Background value 121 

BAR.KNOB program 87,89,149 

BAR_KNOB2 program 88,152 

Bold labels 19 

Booting the Pascal system 7 



c 

Cartesian coordinates 6 

Cell, character 43 

Centering labels 17 

Character cell 43 

Character size, setting 16,45 

CharCell program 43,157 

CHARSIZE procedure 46,50 

Choosing the graphics display device 6 

CLEAR-DISPLAY procedure 55,225 

CLIPDRAW procedure 25,32,62 

Clipping lines 23 

Closed loop system 87 

Color displays, external 84 

COLOR program 107,158 

Color: 

Additional colors 116,121,123 

Business 100 

CMY Color Cube Ill 

Dithered colors 118,121 

Effective use of 133 



Gamuts 137 

Graphics 99 

Hardcopy 137 

HSL Color Cylinder 112 

HSL model 103,107 

Hue 103 

Luminosity 103 

Map 122 

Mixing 134 

Model resolution 126 

Models 102,107 

Objective use of 135 

Primary 100 

References 139 

RGB Color Cube HO 

RGB model 102,107 

Saturation 103 

Seeing 133 

Spaces 109 

Subjective use of 135 

Table 100 

Vector H8 

Compiling demonstration programs 4 

Complementing lines 55,128 

Continuous degrees of freedom 92 

Control value (DISPLAYJNIT) 7 

ControlWord variable 7 

Conversion between coordinate systems ... 40 

CONVERT_WTODMM procedure 24,226 

CONVERT_WTOLMM procedure 227 

ConvertVirtualToWorld procedure 41 

ConvertWorldToVirtual procedure 42 

Coordinate systems, conversion between ... 40 
Coordinates: 

Cartesian 6 

Rectangular 6 

Virtual 13 

World 13,226,227 

CRT drawing modes 55,128 

CRT, graphics 6 

CrtAddr variable 7,81 

CsizeProg program 165 

Cube, Color HO 

Customizing demo programs for your system 6 
Cylinder, Color 112 



d 

Data-driven plotting 71 

DataPoint program 6,166 

Defining a viewport 13 

Degrees of freedom: 

Continuous 92 

Non-separable 92 

Number of 88 

Quality of 88 

Quantizable 93 

Separability of 88,92 

Demonstration programs 4,6 

Device selector (DISPLAYJNIT) 6 

DGLPRG disc 1 

Direction, label 17,48 

Display design 134 

Display limits, setting 33 

DISPLAY_FINIT procedure 228 

DISPLAYJNIT procedure 6,81,84,232 

DISPLAY.TERM procedure 237 

Displays: 

External color ... 84 

Turning on and off 39 

Dithered colors 121 

Dithering 75,117,123 

Dominant lines, drawing 55,128 

Drawing lines 7 

Drawing modes, CRT 55,128 

DrawMdPrg program 56,166 

Dumping raster images 82 



g 

Gamuts, color 137 

GLOAD procedure 68 

Graphics display device, selecting 6 

Graphics dump 82 

Graphics, interactive 87 

GRAPHICS key 39 

GRAPHICS Library, using 4 

Graphics memory address 69 

Graphics memory size 69 

Graphics tablet 98 

GRAPHICSERROR procedure 238 

GRAPHICSJNIT procedure 9,240 

GRAPHICS_TERM procedure 9,241 

GRID procedure 64 

Grids 62 

GSTORE procedure 68,83 

GstorProg program 171 

GTEXT procedure 15,25,32,50,242 

h 

Halftoning 117 

Hardcopy, color 137 

Highlighting data curves 79 

HP 98627A RGB interface 84 

HSL color model 103,107,126 

Hue 103 



e 

Echoes 94,97,221 

Erasing lines 55,128 

External color displays 84 

External plotter control 85 

f 

Fast drawing procedures 56 

FillGraph program 78,170 

Filling, polygon 74 

FillProg program 76,169 

Force, pen 86 

Frame buffer 115,121,129 

Frame, window 37 

Freedom, degrees of 88 



1 

Images: 

Dumping 82 

Storing and retrieving 68 

INCLUDE files 5,7 

Input device selection 89 

INPUT.ESC procedure 244 

INQXOLOR.TABLE procedure 247 

INQ_PGN_TABLE procedure 249 

INQ.WS procedure 13,34,37,51,251 

Interactive graphics 87 

INT_LINE procedure 56,258 

INTJVIOVE procedure 56,260 

INT_POLYGON procedure 262 

INT_POLYGON_DD procedure 265 

INT.POLYLINE procedure 269 

IsoProg program 60,180 

Isotropic scaling 10,59 



J 



Justifying labels 50 

JustProg program 53,186 



k 



KEYBOARD file 89 

1 

LABELJUSTIFY procedure 50 

Labelling a plot 43 

Labelling Axes 25 

Labels: 

Bold 19 

Centering 17 

Direction of 17,48 

Justifying 50 

LdirProg program 49,190 

LEM programs 73,76 

Limits, display 33 

Line drawing 7 

LINE procedure 8,32 

Line Styles, selecting 57 

Line value 121 

Lines, clipping 23 

Loading the Pascal system 7 

LOCATOR program 94,98,191 

LOCATORJN1T procedure 271 

LOCATOR-TERM procedure 274 

Locators 220 

Logarithmic plotting 64 

LogPlot program 66,194 

LT instruction 57 

Luminosity 103 



m 

MAKE_PIC_CURRENT procedure 275 

Map, color 122 

MARKER procedure 79,276 

MarkrProg program 80,196 

Memory address, graphics 69 

Memory size, graphics 69 

Models, color 102,107 

Modes, drawing 55 
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Monochromatic defaults in color table .... 101 

MOVE procedure 8,32,277 

Multi-line objects 72 



n 



Non-separable degrees of freedom 92 



o 

OUTPUT_ESC procedure 



39,55,82,85,278 



P 

Pascal system, loading 7 

Pen: 

Acceleration 86 

Force 86 

Speed 85 

Permanent command 4 

Photographing the CRT 138 

Pixel 11,75 

PLineProg program 71,197 

Plot labelling 43 

Plotter control 85 

Plotter, selecting a 81 

Plotters 114 

Plotting and the CRT 138 

Polygon filling 74 

Polygon interiors 121 

POLYGON procedure 72,74,283 

POLYGON_DEV_DEP procedure 74,286 

Polygons 132 

POLYLINE procedure 71,290 

PolyProg program 73,198 



q 



Quantizable degrees of freedom 93 



r 

Raster images, dumping 82 

Ratio, aspect 34,60,98 

Rectangular coordinates 6 

References, color 139 

Resolution of color models 126 

Retrieving and storing images 68 

RGB color model 102,107,126 

RGB interface 84 

Rotation, label 17,48 

Rubber echoes 97 

Running demonstration programs 4 



SAMPLELLOCATOR procedure 292 

Saturation 103 

Scaling 9 

Scaling,isotropic 59 

Screen dump 82 

Selecting the graphics display device 6 

Separable degrees of freedom 88,92 

SET_ASPECT procedure 11,14,33,294 

SET_CHAR_SIZE procedure 16.44,46,50,296 

SET_COLOR procedure 99,114,297 

SET_COLOR_MODEL procedure .... 101,300 
SET_COLOR_TABLE 

procedure 55,101,114,302 

SETJMSPLAY.LIM procedure 24,33,306 

SET_ECHO procedure 98 

SET_ECHO.POS procedure 309 

SETJLINELSTYLE procedure 57,311 

SET_LINE_WIDTH procedure 319 

SETJLOCATOR.LIM procedure 98,315 

SETJPGNXOLOR procedure .... 99.114,320 

SET_PGN_LS procedure 323 

SETJPGN_STYLE procedure 75,327 

SETJPGN_TABLE procedure 328 

SET-TEXT-ROT procedure 17,48,331 

SETJTIMING procedure 332 

SET- VIEWPORT procedure .... 14,34,37,334 
SET-WINDOW 

procedure 9,14,34,35,47,59,336 

Shading graphs 78 



SinAspect program 12,199 

SinAxesl program 22,200 

SinAxes2 program 26,204 

SinClip program 24,209 

SinLabell program 15,213 

SinLabel2 program 16,18,214 

SinLabel3 program 19,215 

SinLine program 8,216 

SinViewpt program 216 

SinWindow program 10,217 

Solution vector 118 

Speed, pen 86 

Storing and retrieving images 68 

STRLEN procedure 17 

STRWRITE procedure 25 

System Library 4 



t 

Target vector 118 

Test program 89,94 

Text, writing to the graphics screen .... 15,132 
Tick marks 20,62 



V 

Vector, color 118 

Viewport, defining 13,34 

Virtual coordinates 13 

Vision, color 133 



w 

What command 4 

Window frame, drawing 37 

Window limits, calculating 35 

World coordinates 13,226,227 

WRITELN procedure 25 

Writing modes 127 

Writing text to the graphics screen 15 



m 
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